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Dedicated to Mom and Dad 


Publisher's Note 


In keeping with our ongoing commitment to provide both literature and 
software for personal computers Melbourne House is very proud to be 
able to publish this book of games for the Commodore 64. 


You will find complete program listings, comprehensive structures and 
useful hints on each program. We have taken care to design the format in 
such a way that the programs will be easily read, to reduce the possibility 
of transcription errors, expecially with the graphics characters. 


After working through this book, | think you will agree that Clifford and 
Mark Ramshaw are immensely creative programmers and the programs 
in this book should set the standard future programs for the Commodore 
64 will be judged by. 


| know you will enjoy not only the games themselves, but also the insight 
you will gain about programming the Commodore 64. 


Melbourne House are not just publishers — we are dedicated to 
microcomputer software, and we are always interested in your feedback: 
If you have an article or program that you think might be of value to other 
users we want to hear from you. 


Until | hear from you, let me just wish you happy programming]! 


ie Me 


ALFRED MILGROM 
PUBLISHER 
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SPECIAL CHARACTERS 


In the program listings throughout this book spaces have been used 
ONLY as an aid to readability. When you type the programs in on your 
computer these spaces should be left out to conserve memory space. 


As an example the line 
100 POKE 54273,1: POKE V + 23,0 
would be typed as 
100РОКЕБ54273,І:РОКЕУ--23,0 
оп your computer. Ав you сап see the first verson is much more legible. 


The only situation in which a space should be entered into a program 
listing is when the symbol 


appears. This special character does not appear on your computer's 
keyboard but has been placed in the listings to tell you, the programmer, 
when a space is necessary. 


One other symbol appears in the program listings which may not at first 
be recognised. This is the symbol 


LU 39 


- 


and is actually just the COLON symbol located on the key next to 
the L key. 


The letter “1” and the number “1” can cause some confusion at times as 
well as the letter “O” and the number “0”. 


Once you are familiar with them they don't cause any problems, it's just a 
matter of recognising the difference. 


The letter | looks like this: 
The number 1 looks like this: 
The letter O looks like this: 
The number О looks like this: о 
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CHEXSUM 


RUN THIS PROGRAM FIRST 
The unique CHEXSUM program validation 
WHY: 


When a book of programs, such as this book, is keyed in everybody 
invariably makes reading and typing mistakes and then spends ages 
trying to sort out where and what is causing the error (or errors). 


Even experienced programmers often cannot identify an error by just 
listing the relevant line and need to do the tedious job of going back to the 
book, especially with DATA statements. 


Realising that this is a major cause of frustration in keying the programs 
we decided to do something about it. 


There are two short routines in this book which you should key in and 
save BEFORE you key any other programs in. 


Using these routines you will be able to find out if you have made any 
keying errors at all and in which lines, before you even run the program. 


In effect this means that with this book you need not waste time looking 
for keying errors, you simply run the routines and look at the display to 
identify lines containing errors. It's just that easy. 


The principle behind the routines is a unique chexsum which is 
calculated on each individual line of the program as you have keyed it in. 
Compare this chexsum value with the value for that line in the list at the 
end of the program listing, if they are the same the line is correct, if not 
there is an error in that line. 


HOW: 


The CHEXSUM program uses line 62000 onwards, and no other 
program in this book uses line numbers that large. 


To use it, you need to type in the CHEXSUM program first (or load it from 
tape). You then type in the program you have chosen from the book. 


At any stage of typing your game program, you can check on the 
correctness of your work by entering the command RUN 62000 . 


When you have completed entering your program, and are satisfied that 
all is correct, you can delete the CHEXSUM program by running it and 
answering DELETE to the question 'TO PRINTER (Y, NOR DELETE ) 
7”. You can now save your program to disk or cassette as it will still be 
intact in memory. 


WHEN: 


The simplest method is to enter the CHEXSUM program in now and save 
it to tape or disk. Each time you want to enter a new program just load 
CHEXSUM and key the program. 


You can type in the CHEXSUM program at any time, even if you have 
started to type in a program. You cannot, of course, load in CHEXSUM 
from tape or disk because it will erase all you have typed so far. 


A partial solution to this is the MERGE program included here that will 
allow you to merge two programs. To use it, you will have to save all you 
have typed in so far onto your cassette or disk, load the MERGE 
program, and run it. You will be prompted to load in your program and the 
CHEXSUM program. 


If you are using a Datasette it might be an idea to save CHEXSUM and 
MERGE on a seperate cassette, saving CHEXSUM first. This will enable 
you to save all your corrected programs on one cassette and allow you 
easy access to the CHEXSUM and MERGE routines without having to 
constantly run backwards and forwards through the tape. 


HOW CAN YOU TELL IF CHEXSUM HAS BEEN CORRECTLY 
ENTERED? 


After having keyed CHEXSUM (or MERGE) the logical thing would be to 
chexsum these programs too, to ensure that they are correct. But is it 
possible to do this? If you follow the instructions you will be able to check 
them both. 

Type and save CHEXSUM 

Edit line 62020 and change the value of E from 61999 to 62200 


Type RUN and check output against the table of values at the end of the 
program. 


If the program is incorrect then edit the incorrect lines and resave the 
program after having reset the values of E in line 62020. 


Type and save MERGE. 


You can only check the data in the MERGE routine, however this is the 
most important part of the routine. All you need to do is “RUN” merge, it 
will check its own data and prompt you if there is an error. 


Here are the routines and instructions on how to use them: 


CHEXSUM ROUTINE 


62000 T-PEEK(62) s256+PEEK( 61) + 1 

62010 INPUT"TO «PRINTER al a Ү д , AN „ОК a DELETE a > 2 "703: 
IF Q$="DELETE " THENG2200 

62911 IF Q$S(>"Y"THEN 62020 

62015 CLOSE4,4:0PEN4 ,4:CMD4:PRINT CHRS 1)7zCHR% 123) 


628208 PRINT CHRE 147); "CHECK a SUMa: -" 
L INK =PEEKC 44) 4256 *PEEKC 4933 :E=6 1999 


621060 REM $ MAIN LOOP ላ 
б2 128 T=L INK 
E2138 LIMK=PEEKC T+1)425E6+PEEKC ፐን 
62135 LH=PEEKC ፐ+3 > 3256 + РЕЕК(С T+2) 
62136 IF LN>E THEN PRINTt*PRINT"TOTRL = "СН: CLOSE4,4: END 
62137 SS=STR$K LH ):L =LENM SS)-1:SS$S=HIDS$ S$,2 ,L.> 
62138 PRINT SPC<6-L 257597 
62140 ር5=6 ፡ H=0 ፡ C=09 
€2150 FOR P=T+4 TO LINK-2 :PK=PEEK(P) 
62160 IF PK=143 THEN P=LINK-2:GOTO 62198 
62165 IF PK=34 THEN C=<C=Ø) 
62170 IF с-й AND PK=32 THEN 62190 
62188 IF PK=137 THEN N=N+1:CS=CS+( 2030RND :PK=164 
62185 N=N+1:CS=CS+(PK OR N) 
62130 ТЕХТ P :CH=CH+CS : PRINT 
"=" RIGHTS STR CS) ,LEM STRE С522-12:60Т0 621260 
62288 POKET,0:POKET*1,0:POKE4G,PEEK« 46) -ፎ CLR 
62999 REM 


INSTRUCTIONS 


1: RUN 62000 
2: answer the question. 
“Y” if you want listing on printer 
“N” if listing is to be displayed 
“DELETE” to delete CHEXSUM 
hit “RUN/STOP” to halt output. 
type “CONT” to continue. 
if all is correct then “RUN 62000” again and answer with “DELETE”. 
otherwise correct errors and start again from 1. 


ОЕ 
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CHEXSUM 


2000-1368 ECcITA=1152 
есеіс-алаа сеіаЙй-ізан 
SEEl-iżgl Pe beos 1362 
SZA15=2125 6130-4228 
Z2RZD=425Ę GESNØ=SP2VY5 
EA 19959 

BZiIZERETY TUTAL= 45567 
B2136=280EY 

5:2 125=211= 

2136-2530 

62137=2308 

62138=3921 

s2140=1142 

52 150=2251 

не 1656=2272 

SLIES-1431 


MERGE ROUTINE 


10 POKE 33,0:POKES6, 158 ፤፡ር..ጾ 

26 5х140705:ЕОК J=S TO 8+76: READ V 

39 C=C+V:POKE 7,У:МЕХТ 

40 IF С< 23756 THEN PRINT "DATA 4 ERROR" IEND 
120 BATA 188,0,133,10,32,212,825,165 
130 DATA 43,72,165,44,(2,56,165,45 
149 NATA 233,2,133,43,165,46,233,0 
150 DATA 133,44,169,8,133,185,166,43 
160 DATA 164,44,169,0,32,213,255,176 
170 DATA 14,134,45,132,46,32,51,165 
188 DATA 104,133,44,104,133,43,96,170 
130 DATA 201,4,144,244,240,10,104,133 
209 DATA 44,104,133,43,24,108,0,3 

210 DATA 164,186,136,249,209,209,239 
300 NEW 


INSTRUCTIONS 


1: LOAD and RUN MERGE. 

2: type or LOAD your program. 

3: type SYS 40705 “CHEXSUM”. (SYS 40705,8 for Disk.) 
4: then follow CHEXSUM instructions. 


Because MERGE, on running it, stores itself above BASIC memory it will 
reside there until you switch off the machine or change the top of BASIC 
RAM. From this it follows that you dont need to continually reload 
MERGE after running ዘ the first time. 
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CHEXSUM AND GRAPHICS CHARACTERS 


At times it might be difficult to recognise the difference between two 
graphics characters and when you run the CHEXSUM you will get a 
variance in the values. If, after having checked the line carefully, you 
come to the conclusion that the error must be in one of the graphics 
characters and you are reasonably sure that you keyed what you think 
the character should be, then don't worry about the CHEXSUM variance. 
When you run the program it will be obvious from the screen display what 
the character should be if ዘ is an important character. Some characters 
don't really matter that much and at times you probably won't even be 
able to find the wrong one in the screen display. 


Paranoid 


Just sit back and watch the machine print a kaleidoscope of graphics 
patterns. When you've had enough just 'stop' the program. For an 
entirely different pattern re-run the program. 


This is an easy, short program that has pretty impressive results. Use itin 
understanding your machine's graphics capabilities or just something to 
occupy your screen (and spectators) while you are doing something 
else. 


PROGRAM STRUCTURE 

INITIALIZATION 

PLOT POINTS REVOLVING AROUND X, Y 
CHANGE X, Y AND CHECK IF IN SCREENS SIZE 
RANDOMLY CALCULATE DX, DY 

LOOP 


SUBROUTINE PLOT X1, Y1 


VARIABLES 

V = VIDEO CHIP 

X, Y = BASIC SCREEN COORDINATES 
DX, DY = OFFSETS FROM PREVIOUS X, Y 


X1, Y1, YA, YB, XA, XB = TEMPORARY STORAGE 


P(7) = BIT POSITIONS 
XC = BIT TO BE SET 
P = LOCATION OF BYTE TO BE PLOTTED TO 
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LINES 
1— 100 
105, 107 
110, 115 
120, 140 
145 


1000, 1010 


PARANOID 


1005 


1010 


DIMP ( 7 
P ‹ 1 ን 
53248 


V 


DY 
IF DX 
Y 


^ 
ጭ 


መመ 
= 


Y1 


BACKGROUND 
POKE 55,255 


= Y 
= 1 


) 


ж 
ጭ 


POKE ህ + 24, 
POKE V + 17, 
1024 


NT 


GOSUB 1000 
GOSUB 1000 


X1 X 


THEN DX 


DX 
IF RND ( 
DY 


DY 
IF DX 
GOTO 105 
YA INT 


DX INT 


XA 


xC 


P 


CHEXSUM 


ке ке рз 


и 


a=1814 


mana 


Fade 


ጠ 


ዘ 


l) 
“1 
ia) 


Са ር3 
| 


| 
һа F 
W n 


(2 


“ 


“y (Л ጩ (0 


ІЛ ІП js ü) e 
[Ú 


“1 ሠ üu ር0 


H 
PY == 
0 


rd 


(5 ር 


da LJ 


f 
ዘ 
(o Ch 
da IU 19 
BN Um 


as 
ل“‎ CH р) 


xæ 
Ly 
IL 
` 

- 
Ly 


INT 
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) 


1 ) 
INT 


1 


kud 
- 
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24 


POKE V 


PEEK 
PEEK 


TO 2024 
TO 8192 


49 


X 
Y 


a 
w 


X1 
Y1 
Y 
- DX 


> 


> 


P 
ጭ 


( RND ‹ 
O AND DY 
X1 


^ 
v 


1 


- 
- 


( ሃ1 / 8) 
INT ( X1 ⁄ 8) 
8 $ 1024 + YA * 320 + XA ቐ 8 + YB 
Р ( XB ) 
РОКЕ Р, РЕЕК 


POKE 56,51 
FOR I 


( 7 1 
+ 


O TO 7 


32,0 5 


de 
«w 


) z 


NEXT 
POKE V + 33,0 


( V + 24 ) OR 8 
( V + 17 ) OR 32 


+ 


DX 


-- 
= 


1 


X * 2 
X1 
Y + DY 


- 
w 


:9 THEN 
INT « RND ( 1 ) 
«9 THEN 
( RND ( 
IF DX < > О OR DY < > O THEN 105 
с RND ( 1 
с RND < 
O AND DY 


1 ) 


ዘ” = 


^ 
v 


> 
т 


ОР) OR XC 


ሃጫ ተሙ ኑጫ ኮኑጐ= ጐኤ 
© |) == bm 


BER 
ርባ 3 UI ІЗ 


ea d 


። 


ко Cg 


T 


|: pa =з 
«fl 


p 
ra 


LL 


„= 


a 
- 


sa 
ጭ 


% 5 - 


14 ፦ 


XB 


ርጋ 


ge 
43 


ІЛ 
da HB a 


lu Гу 


መጋ 


TOTALS 
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POKE ፲ , 8ፅ 
8 ፄ 1024 


1 


ዉ 
ጭ 


ጨ 
ጭ 


GOSUB 1000 
= 319 — X1 
IF X < O OR X > 159 
БОТО 110 
IF Y < О OR Y > 99 THEN DY 
IF RND ( 1 


1 ) 


1 ) 


ሃ1 


X1 


a 
w 
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GOSUB 1000 


DY 


RETURN 


a 
- 


INT ( RND ( 1 ) 
) € 3 — 
O THEN 100 
GOSUB 1000 
199 - Y 


) 


— YA * 8 
— XA * 8 


NEXT 
POKE 1,0 


> 
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¥ š — 


- 
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319 — X 
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ጭ 
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Poetry 


Sit back and watch as the program writes poetry before your very eyes. 
Try making changes to the poem's words to make it ridiculous or 
humourous or just try and give it more to write. 


Press'N' key to stop the program or any other key for another poem. 


PROGRAM STRUCTURE LINES 


INITIALIZE ARRAYS 20— 30 
INITIALIZE SCREEN 50 

CHOOSE WORDS 95 — 70 
CHOOSE LINES 75 

PRINT LINES OF POETRY 80 — 130 
GO AGAIN? 500 — 515 
WORDS DATA 1000 — 1045 
VARIABLES 


AJ$ = ARRAY CONTAINING ADJECTIVES FOR LINE 
AV$ = SAME AS AJ$ EXCEPT ADVERBS FOR LINE 
FL = TO REPEAT A LINE 

MO = RAMDOM TO SET “MOOD” 

AJ, AV = RANDOM TO CHOOSE WORDS 
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POETRY 
10 
20 
30 
50 


55 
60 


65 


70 
73 


80 


85 


JO 


95 


100 


105 


110 


115 
120 


125 
130 
500 
905 
910 
515 
1000 
1005 
1010 
1015 
1020 
1025 
1030 


1035 


REM $ $ POETRY ¥ ¥ 


DIM AJ$ ( 9,2 ) ,AV$ ( 9,2 ) : FOR I = O TO 9 
READ AJ$ ( 1,0 ) ,AJ$ ( 1,1 ) ,AJ$ ( 1,2 ) 

,AV$ ( 1,0 ) ,AV$ ( 1,1 ) ,AV$ ( 1,2 ) + NEXT 
PRINT "2"; SPC( 14 ) ነ"ቁሄ . POETRY „tt [el"; 


CHR$ ( 8 ) 
FL = O ғ МО = INT ( RND ( 1 # 3)) 
FOR I = 1 TO 4 + INT ( RND ( 1 ) 84) = 
AV = INT ( RND ( 1 D) % 10 > 
AJ = INT ( RND (1 ) 10 ) + 
IF AJ = AV THEN ሬ5 
AJ$ = AJ$ ( AJ,MO ) + AVS = AVE ( АУ, МО >» 
ON INT ( RND (1) # 11 + 1 ) 
GOTO 80,85,90,95,100,105,110,115,120,125, 130 
PRINT "THE „ "3AJ$;" „MAN a "¡AVs; 
" | BEGUILED „ HER" * GOTO 500 
PRINT “ስ „ ";AJ$; " . WOMAN „ ENCHANTED „МЕ _ WITH 
a ";4V$;" , BLINKING . EYES" + GOTO 500 
PRINT "IN a ";AV$;" . KEEPING , WITH 4 HER "362$; 
" VOWS' = GOTO 500 
PRINT "ALAS, a SHE , MUST . "5 АУФ; " „LEAVE „HIS 
a "5AJ$; " . PRESENCE" = GOTO 500 
PRINT "A „ BREATH „OF . “5AJ$3" AIR, "3 AVES" 
a RUSTLED , IN , THE , TREES" + GOTO 500 
PRINT "ANOTHER a ";AJ$;" „DAY a "; АУФ; " a ENDED" 
GOTO 500 
PRINT "THE 4 "5AJ$;" „HILLS , MARCHED 
" | ACROSS , THE , HORIZON" 5 GOTO 500 
PRINT “AND , THEN: " : GOTO 500 
PRINT "THE . “5AJ$5" „BELL a TOLLED . " ነ АУФ; 
" | ONCE . AGAIN" = GOTO 500 
PRINT "THE . "3; АУФ; " . "3AJ$;" . HUMAN , ARRIVED" 
GOTO 500 
PRINT "LIFE „ ";AV$;" . DAWNED „ON . THE . "3 8.1»; 


"%АУ%: 


" UNIVERSE" + GOTO 500 
NEXT I * IF FL = O AND RND ( 1 ) > .S THEN 
FL = 1 + GOTO 60 
GET A$ + IF AS = "N" THEN PRINT CHR$ ( 9 ) = 
END 
IF AS = "" THEN 505 
БОТО 50 
DATA SORROWFUL , APPATHETIC, JOYFUL, SADLY 
, CARELESSL Y, HAPPILL Y 
DATA PUTRID, ODOURLESS, SCENTED, FOULL Y 
, CAREFULLY, SWEETLY 
DATA BORING, ENLIGHTENING, INTEREST ING, TIRELESSLY 
,EFFORTLESSL Y, EASIL Y 
DATA UGLY, PLAIN, BEAUTIFUL, CLUMSILY, , GRACEFULLY 
DATA FAT, THIN, LEAN, NOISILY, QUIETLY, 
DATA PATHETIC, ORDINARY, SUPER, PATHETICALLY 
„а SUPERBLY 
DATA IRRITATING, CALMING, EXCITING, SHARPLY 
, COOL Y, EXCITEDLY 
DATA TORTUOUS, HATING, LOVING, , CONTEMPTUQUSL Y 
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q 


, LOVINGL Y 
1040 DATA DVING,LIVING,NEWLV BORN,PAINFULLY,EASILY, 
1045 DATA STUPID, IGNORANT, INTELLIGENT, FOOLISHLY 

s 3 INTELLIGENTLY 
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Turkey 


Attempt to keep the turkey in the air as long as possible by manoeuvering 
the waiter underneath it and then bouncing it off the platter. 


You control the waiter with the 'Z' (left) and 'M' (right) keys. The turkey 


can be dropped twice but becomes inedible after the third time and the 
game ends. 
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PROGRAM STRUCTURE LINES 


INITIALIZATION 1—5 
POINT SCORE AND NO. OF DROPS LEFT 10 

READ KEV 20 
MOVE LEFT 26 
MOVE RIGHT 32 
MOVE TURKEV 50 
CHECK IF WAITER CAUGHT TURKEY 95— 100 
ANOTHER GAME 120 

IF YES, RUN AGAIN | 140 
ELSE END 160 
DATA 9000 — 9050 
VARIABLES 


V = VIDEO CHIP 

CO = DIFFERENCE BETWEEN VIDEO DISPLAY AND SCREEN 
MEMORY 

11 = NO. OF DROPS LEFT 

P = POSITION OF WAITER 

X, Y = POSITION OF TURKEY 

S = SCORE 

PE = KEY PRESSED 

XD, YD = DISPLACEMENTS FOR TURKEY 

M, X1, Y1, P = TEMPORARY STORAGE 


17 


TURKEY 


1 
2 


90 


95 


100 


110 
120 


130 
140 
150 
160 
9000 
9010 


9020 
9030 


9040 


7050 


POKE 53281, 
CO = 54272 = 
V = 53248 * SC 
XD = INT ( RND 
POKE V + 21,3 + P 
FOR I = 0 TO 126 
NEXT 

POKE V,P + POKE V + 1,200 + POKE V + 2,X + 
POKE V + 3,Y 

PRINT “ [2 (SUPER , WAITER! , a KESCORE:" 

FOR I = 55381 TO 55406 + POKE 1,5 + 
POKE I — CO,86 + NEXT + 
FOR I = 55381 TO 56156 STEP 40 

POKE 1,5 + POKE I — ር0,8ሬ + POKE I + 25,5 + 
POKE I + 25 - CO,86 = NEXT 

PRINT " Е EJ El E] EJ El El El El El El El El 
Bl El El E] El El El E] PI ወ";5፣5” å å + a a "SLI 

PE = PEEK ( 197 ) 

IF PE < > 12 AND PE < > 36 THEN 50 

IF PE = 12 AND P > 70 THEN P = P - 2 

IF PE = 36 AND P < 240 THEN P = P + 2 

POKE V,P 

ሃ1 = Ys Xi = X M= 

Yi = Y1 + YD = X1 = X1 + XD 

IF X1 < 70 OR X1 > 240 THEN XD = - XD ż 
S=S+1:M=1 

IF VI > 220 THEN X = Р + 
XD = INT ( RND (1) $ 
LI = LI - 1 = GOTO 110 

1 2 
) $ 


od 


53280,9 
5 X = 1 


) 9-4) 5 YD=-1 
2040,13 + POKE 2041,14 
EAD О + POKE 832 + 1,9 + 


Y = 200 г 
9-4) үр=- 1 + 


IF Yi < 70 THEN YD 


XD = INT ( RND ( 1 9-4) :S=S+ 1 ራሩ 


М = 1 

IF Y1 < 210 AND PEEK ( V + 50) < > O THEN 
YD = ፦ 1 5 XD = INT ( RND ‹ 1 ) £ 9-4) 2 
S =S + 2 


IF M = O THEN X = ХІ + Y = VI + POKE V + 2,X 
POKE V + 3,Y 

IF LI > O THEN GOTO 10 

PRINT “ЕЗ ሀመ] [e) (a [e] [e] [el መ] (el El El El El El E] THE 
a TURKEY , IS a INEDIBLE!!" 

PRINT "а [0 Eš El El 6] El ЕЈ BI 8 . . „WANT „ТО 
a TRY „ AGAIN?" 

GET A$ + IF ልቆ = "Y" THEN RUN 

IF A$ < > "N" THEN 140 

END 

DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0,7,255,240,7,255,240,0,62,0,0 

DATA 64,128,0,92,128,0,92,128,0,73,0 
,0,62,0,0,30,0,0,30,0,0,18,0,0,17,0,0,17 

DATA 0,0,49,128 

DATA 0,0,,0,0,0,0,0,0,0,0,0,192,0,7 
,240,0,15,240,0,31,252,0,63,254,0,127,254 

DATA 0,255,127,1,248,63,9,224,14,7,128 
,14,15,240,15,3,14,30,6,1,248,0,0,112 

DATA 0,0,0,0,0,0,0,0,0,0,0,0,0 


a 
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SPRITE 


WAITER 


SPRITE 


TURKEY 


0300-4450 
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Quack 


This is the old fair ground game but instead of using bullets you are 
equipped with a bow and arrow. An arrow will of course travel slower than 
a bullet and thus requires better anticipation. The ducks do not move ata 
uniform speed which makes the game a lot harder. You have a limited 
number of arrows and also a time limit. 


Your controls are: 
Z left 
'C' right 
'M' to fire an arrow 


| SPRITE 


DUCK 
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PROGRAM STRUCTURE 
INITIALIZATION 

GET KEY PRESSED 

PRINT TIME, SCORE, ETC 

IF OUT OF TIME GO TO END 
MOVE BOW AND ARROW 
IF'S' FIRE ARROW 

IF SPRITE COLLISION FLIP BIRD 
POSITION BOW AND ARROW 
MOVE DUCKS 

FLIP BIRD ROUTINE 

PRINT MESSAGES 

FIRE ARROW ROUTINE 
DATE 


VARIABLES 

S = SCORE 

A1 = ARROWS LEFT 

AR = 0: NOT IN FLIGHT 

P = BOW POSITION 

X, Y = ARROW POSITION 

X ARRAY = DUCK POSITIONS 
PE = CURRENT KEY 

Z = SPRITE COLLISION 


DEAD 
DUCK 
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SPRITE 


LINES 
0—9 
10 
11—12 


15 

18 

21 

30 — 40 
100 — 130 
200 — 280 
300 — 310 
9000 — 9110 


QUACK 


O POKE 55, 255 + POKE 56,47 * CO = 54272 $ 
Al = 10 5 5 = 0 5 POKE 54296,15 + 
POKE 54278,240 + POKE 54276,5 
1 PRINT "EZ" + POKE 53281,0 = POKE 53280,0 = 
V = 53248 + POKE V + 21,63 = POKE 2040,192 5 
POKE 2041,193 
2 FOR I = 1 TO 4 = POKE 2041 + 1,194 = 
POKE V + 40 + 1,2 + 1 + NEXT ፥ 
POKE V + 39,8 = POKE V + 40,1 = POKE V + 29,1 
3 FOR I = O TO 254 = READ Q + POKE 12288 + I,Q $ 


NEXT 

4 P = 120 + X = 132 5 Y = 217 * POKE V,120 + 
POKE V + 1,220 + РОКЕ V + 2,X + 
POKE V + 3,Y + FOR I = O TO 3 

5፪ (+1) = Y (1+ 1 ) = 90 
+: POKE V + 4 + I 8 2,X (I + 1 ) + 
POKE V + 5 + I t 2,Y (I + 1 ) 2 NEXT 

6 I = PEEK ( V + 50 ) * FOR I = 55376 TO 56256 
STEP 40 : POKE 1,4 + POKE I - CO,160 + 


POKE I 4 32,4 

7 POKE І — CO + 32,160 + NEXT + 
FOR 1 = 55336 TO 55368 + POKE 1,4 + 
POKE I — C0,160 + NEXT 

В TIS = "000000" + PRINT " ES ES3*333****XX 
44442234 GIQUACK Ра жакка" 

9 PRINT " E O መ! መ] ወ! БЕ HE BE BB RE i4 
TIME (el (el (e (e) (e ዘዘ EE ዘዘ BE BESCORE" 

10 PE = PEEK ( 197 ) 

11 PRINT * & [e] (a [e] [a (e) [e] RE EE ዘዘ ዘዘ EE zu": 
RIGHTS ( TI$,2 ) = PRINT "ез [el [el 
(ел (e) [е] [ей (e) [е] (е1 (ед («1 [el BB BB ፳፪ ፳፪ 28755; 

12 PRINT " [eq [m (e BEBE . . BB ዘዘ “SAL > 
IF TIS = "000100" THEN 200 

13 IF PE = 12 AND Р > 35 THEN P = P — 4 + 
IF AR = 0 THEN X = X - 4 

14 IF РЕ = 20 AND P < 237 THEN P = P + 4 + 
IF AR = О THEN X = X + 4 

15 IF PE = 36 AND AR = O AND Al > O THEN 
Al = A1 - 1 ፥ AR = 5 + GOSUB 300 

18 Y = Y - ልጸ : Z = PEEK ( V + 30) + 
IF Z > 3 AND Y > 90 THEN GOSUB 100 

19 IF Y < 60 THEN Y = 217 + AR = O + X =P + 12 
POKE V + 3,Y 

20 POKE V,P s POKE V + 2,X + IF AR > O THEN 
POKE V + 3,Y 


4 


SO FOR I = O TO 3 2 X 1 + 1 ) = X 1 + 1 ) + S 
IF X C I + 1) > 241 THEN X (I + 1 ) = 3533 = 
POKE 2042 + 1,194 

40 POKE V + 4 + I ¥ 2,X (I + 1) 2 
POKE V + Š + I ¥ 2,Y (I + 1 ) = NEXT 


50 GOTO 10 

100 S = 8 + 10 = Z = PEEK (V+ 30 ) 5 A= 5% 
IF Z AND 8 THEN A = 1 

105 IF Z AND 16 THEN ñ = 2 
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q 


110 IF Z AND 52 THEN A = 3 
113 IF Z AND 4 THEN A = 4 
115 POKE 2042 + A,195 = AR = O 5 Y = 218 + 
X =P + 12 + POKE V + 3,Y > 
120 POKE 54276,0 + POKE 54276,33 
125 FOR I = 15 TO 1 STEP - .5 + POKE 54275,1 8 2 + 
POKE 54296,1 + NEXT + POKE 54296,15 + 
POKE 54273,0 
130 Z = PEEK ( V + 30 ) ፥ሩ RETURN 
200 POKE 54276,0 + POKE 54276,17 + 
FOR І = 240 TO 1 STEP - 3 + POKE 54275,1 + 
NEXT + POKE 54273,0 
210 FOR I = 1 TO 11 * POKE V + 1,0 + NEXT 
220 PRINT " C3 GSYOUR , TIME . IS . UP!" 
230 PRINT "(el M ESYOU , SHOT"5S / 105 "BIRDS." 
240 IF S > 50 THEN PRINT ''IMWELL , DONE!!!" 
250 PRINT " (el (e) [el MDO „ YOU „ WANT „ ANOTHER , GO?" 


260 GET ñ$ + IF AS = "Y" THEN RUN 
270 IF ñ$ < > "N" THEN 260 
280 END 


300 POKE 54276,0 + POKE 54276,129 ° 
FOR I = 1 TO ВО STEP 2 + POKE 54273,1 + NEXT 
5 POKE 54273,0 

310 RETURN 

9000 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0,0,56,0,0,238,0,1,199,0 

9010 DATA 3,1,192,6,0,192,12,0,96,24,0,48,48 
,0,24,110,0,236,1,199,0,0,56,0 

9020 DATA 0,0,0,0,0,0,0,0,0,99 

9030 DATA 0,0,0,0,0,0,0,16,0,0,56,0,0,56,0 
,0,124,0,0,16,0,0,16,0,0,16,0,0,16 

9040 DATA 0,0,16,0,0,16,0,0,16,0,0,16,0,0,16 
,0,0,16,0,0,16,0,0,16,0,0,16,0,0,16 

9050 DATA 0,0,16,0,99 

9060 DATA 0,0,0,0,0,0,0,0,0,0,0,6,0,7,232 
,120,7,176,252,7,232,126,3,134,63,255,0 

9070 DATA 63,255,0,31,255,0,15,255,0,15 
,255,0,15,255,0,3,248,0,0,128,0,1,0,0 

9080 DATA 2,0,0,4,0,0,6,0,0,5,0,0,99 

9090 DATA 0,0,0,5,0,0,6,0,0,4,0,0,4,0,0,2 
,128,0,1,248,0,0,255,0,3,255,0,15 

9100 DATA 255,0,15,255,0,15,255,0,31,255,0, 
63,3,134,63,7,232,126,7,176,252,7,232 

9110 DATA 120,0,6,0,0,0,0,0,0,0,0,0,0,0,0 
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1-448: 


CHEXSUM 
й =: 


арар 
ИРЕ Е ДЕ 
ሆ) ረ... ER 
ዮ- ш 
е 0) W ሀገ ኡ OF sh W o ሀገ ፦ = 
т ой) c (Шш ፎ [ዘገ ቦነ ሸጠ) ቦነ s (т) a 
”“ mo е (Y eminrmi m. D DES. 
— የሳ f ሁ shot m Moto m de 
ዘ H ዘ ዘ ዝ ዘ H ዘ N H 
& C C C G cic © ጩ & Ш 
amy TN O OIG” ġid 
има Gi Gi EN EN A pr 
a d O о m m Ci m m ፦ 
P 
Qj md) + * = ዮ- G ዮ- ar ዘ? ከበ Ur ao eo qi ፍት о) ат бб Ol іп በርህ ቦነ ር ጩ መ 
መ ሠ የህ G ኮ- O ከገ ሀገ ш ፦ በ) ጐ He Ws ሀገ O0 O ሰ ቦ) ሀ: P ኩዬ 0) + = Ol O 0: ፦ 00 OJ — 05 
TEN O OY ዐነ QI P< ርነ ጭት ናዮ (ገ CO ቫ OM የገ Pe ሠ" ሺ) O O ር) QI Q ii Qr GY Q) CT Qu 
ሀገ QI ከ) qi ፓሻ то мг ጃጁ ሰጠ) OHM ቦነ) O Gl uy x2 mM ር) бу QI — so Sort <+ [ነ] r ti] +з 
p " p" li H ዘ 1 u H H tl ዘ [ ዘ u ዘ il " il 4 || [ [ и H ዘ nodi I! ዘ i ዘ и "I H 
Mur ü Pe MMA ርህ የባ vb ከገ CO MGE C ፳2 O 7€ ዘገ መ C) ሀ) 6) ዘገ € ጩ  & O CO) бош 
>а m — ха መዛ LS ++ የህ Q sr Hi A < dh በነ 
“1024 -4 зд жа ove! 9 3 e4 በ] በ] O} nj nj Cu m 


SPRITE 
ARROW 
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Laser Tower 


Escape from the Laser Tower, battling against gravity and evading the 
tractor beam. The tractor beam fires from the tower on the left of the 
screen. lt alters its height as you move away from it, trying to land in the 
pit at the right. 


Y our controls are: cursor up for up, cursor right for right. 
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PROGRAM STRUCTURE 
INITIALIZATION 

PRINT GROUND 

MOVE TOWER 

FIRE LASER 

GET MOVE 

IF MOVEMENT MAKE NOISE 
CALCULATE NEW POSITION 
IF HOME: END 

DONT LET GO OFF SCREEN 
IF COLLISION THEN: END 
DATA 


VARIABLES 

GR = GRAVITY 

VV = VERTICAL VELOCITY 
HV = HORIZONTAL VELOCTY 
FR = TRACTOR BEAM 

A = X POSITION 

TW = TOWER HEIGHT 

PW = LASER 
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LINES 

5— 35 

50— 54 
55 — 80 
85 — 95 

100 

101 — 102 
105— 130 
130, 2000 — 2025 
135— 145 
150— 1010 
10000 — 10070 


LASER TOWER 


5 POKE 55,255 + POKE 56,47 

10 V = 53248 + CO = 54272 + POKE 54296,15 

12 FOR I = 12 $ 1024 + 256 TO 12 $ 1024 + 263 =; 
POKE 1,0 * NEXT 

15 FOR I = O TO 47 = READ A = POKE 12 % 1024 + I,A 
5 NEXT > POKE V + 22, PEEK ( V + 22 ) OR 16 

20 POKE V + 24,28 = POKE V + 34,2 > POKE V + 35,7 =: 
POKE V + 33,0 + POKE V + 32,0 

25 FOR I = 12352 TO 12478 + READ A = POKE I,A + 
NEXT * POKE V + 37,2 + POKE V + 38,7 

30 POKE V,75 + POKE V + 16,0 + POKE V + 1,100 2 
POKE V + 28,0 = POKE V + 39,4 + POKE V + 21,1 

За GR = .4 5 W = 0 5 HV = O 5 FR = .5 + 
POKE 2040, 195 

JO PRINT "Ц ምቹ] (e [eq [e] [eq (a [e] [ወ] [e] (el [e] [e] [8በ Гел (e) (a 
AAN El El El El El BE"; + FOR I = 1 TO 7 ż 
PRINT "ЕЮ መበ BE"; = NEXT = TW = 1625 

51 PRINT " KSCCCCCCCCCCCCCCCCCCCCCCCCCC 
a a а a CCCCCCCC BI E"; 

52 PRINT "DDDDDDDDDDDDDDDDDDDDDDDDDDEEEEDDDDDDDDD" ; 


53 FOR T=1945 TO TW+40 STEP-40 *POKE T,O =POKE T+CO, 
+ NEXT | 

54 А = РЕЕК ( V + 31 ) 

55 R = INT ( RND ( ) * з + ) 5 ONR 
GOTO 85,60,70 

60 IF TW < = 1065 THEN 100 

65 POKE TW + CO,10 + POKE TW,O + TW = TW - 40 + 
GOTO 80 

70 IF TW > = 1945 THEN 100 

75 POKE TW,32 + TW = TW + 40 

80 POKE TW + CO,2 + POKE TW,1 + GOTO 100 

85 POKE 54276,0 + IF RND ( 1 ) < .95 THEN 100 

90 J = TW + 1 ፥ EN = TW + 38 + POKE 54273,72 + 
POKE 54272,169 + POKE 54277,44 = POKE 54275,7 
5 PW = 0 

91 POKE 54274,0 + POKE 54276,65 

93 IF PEEK ( V + 31 ) THEN 1000 

94 POKE J + ር0,7 * POKE 3,2 5 J = J + 1 
POKE 54272,PW : PW = PW + 6 + 
IF J < = EN THEN 93 

95 FOR EN = TW + 1 TO J + POKE 54274,PW 
PW = PW - 6 * POKE EN,32 + NEXT 

100 K = PEEK ( 197 ) : HV = HV - FR - ( K = 2) 

101 IF K < > 2 AND K < > 7 THEN 105 

102 POKE 54273,2 + POKE 54272,37 + POKE 54277,47 : 
POKE 54276,0 + POKE 54276,129 

105 IF HV < — 4 THEN HV = - 4 

110 IF HV > 4 THEN HV = 4 

115 W = W + вв + CK = 7) * IF W < - 4 THEN 
vw = - 4 

120 IF VV > 4 THEN VV = 4 

125 POKE V + 1, PEEK ( V + 
А = PEEK C V + 1 ) ¢ 
POKE V + 1,40 

130 IF A > 234 THEN 2000 

135 A = PEEK ( V ) + ዝህ * B = PEEK ( V + 16 ) AND 1 


v 


q 


1) + VV ፥ 
IF ñ < 48 THEN 
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9 IF A > 255 THEN A = O ° B = 1 
140 IF ñ < O AND B THEN B = O £ f = 255 
142 IF A > 55 AND B THEN А = 55 
145 IF ñ < 32 AND B = O THEN 1000 
150 POKE V,A + POKE V + 16, PEEK ( V + 16 ) DR B 
155 IF R = O AND PEEK ( V + 16 ) AND 1 THEN 

POKE V + 16, PEEK ( V + 16 ) - 1 
160 IF PEEK ( V + 31 ) AND 1 THEN 1000 
165 GOTO 55 
1000 POKE 2040, 194 : POKE V + 28,1 : POKE 54273,34 : 
POKE 54272,75 + POKE 54277,143 
1005 POKE 54276,129 ፥ FOR I = 1 TO 500 + NEXT + 
POKE 54273,0 + POKE 54273,0 : POKE V + 24,20 
1010 PRINT “ Y [m ወባ (a ርባ El El El El занако . LINES" + 
GOTO 2010 
2000 FOR I = 1 TD 5000 : NEXT = POKE 54275,0 + 
POKE 54272,0 : POKE V + 24,20 
2005 PRINT "(2 (e) ጩ [m fa" SPC( 15 ) "WELL , DONE!” + 
PRINT “ወባ (el [al El El El El El ኮዝ ሠ] El BIYOU . ESCAPED 


a ALIVE" 

2010 PRINT " ወ ጩ IĦANOTHER , GAME?" = POKE V + 21,0 = 
POKE 54276,0 

2015 GET A$ + IF A$ = "Y" THEN POKE V + 24,28 + 
GOTO 30 

2020 IF A$ = "М" THEN END 


2025 GOTO 2015 

10000 DATA 220,236,220,236,220,236,220,236,0 
,0,0,48,127,120,252,252 

10005 DATA 0,0,0,0,255,0,0,0,0,0,0,8,157,255,255 
, 255, 255, 255, 255, 255, 255, 255 

10010 DATA 255, 255,0,0,0,0,0,0,0, 255 

10015 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0, 12,32,0, 14,48, 128, 51,121 

10055 DATA 240,463,135, 160,31, 121, 240, 14, 48, 128 
,12,32,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

10060 DATA 0,0,0,0,0,0,0,0,99,0,0,0,0,12,0,0,65 
,0,0,55,0,0,55,0,252,55,0 

10065 DATA 55,247,240,53,87,112,13,85,255,3 
,85,87,0,245,95,0,213,240,0,55,0 

10070 DATA 0,55,0,0,221,192,3,93,192,13,125,192 
,13,205,192,55,3,0,0,0,0,0,0,0 
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CHEXSUM 


5=981 
18-1913 
19-8958 


20-4125 
35-8618 
50-3587 
51-3681 
=2=2728 
52=3222 
54-896 

55=2497 

m= 


መጠ in 


1 
e U 
ዘ 


e 4 ሺ 
о 9 
m 


mo <J o 


" 


Om gi (9 (Л 


25=1778 
208-4842 
a1=1227 
33=1202 
24=4529 
25=2514 
| COB=2278 
AL=1E78 
£2=2285 
AS-1463 
19-1123 
'5-3063 
2Ø= 


mu 5 
ርህ 


ሯጩ U 

ዘ H 

E ІП H 
ru 


|] ”“ “y 
w [О 


0 
ü c 


(Л B U 

Ш Hl H 
о B 

ке 


к 
ዘ 
ርዐ 


ii 
к< [1 ዶ M FR m لرا‎ ሂዐ (Y = ПІ к» € ій к> [0 (ህብ Ja ++ v ሥ፦ ኦ። ы ке [Y r= [U (0 (0 1) 


ІЛ 
ዘ 


ኡ፦ к ቱራ ቱሬ ጮሬ р ሥሥ мА ጮጮ А ጮጮ ре. ጮጮ ор» jante 


መ (Л ርቫ BBB ርዕ Lo Tu 
ru 
|| 


BOO + fo m co 


3 
" 
ф 
ф 


1E5=477 
1908 =3392 


гавз-звав 
16919 2ኞሮ2== 

сраяй-заз3 
coas=4558 
2810=2643 
215-2499 

2021-2895 
2023-580 
10000 =2222 
1009053=239E7 
1941Ø= 1542 
1601323922 
0055-4399 
згаава-зачя 
згайвоз- 3838 
ra 
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Moon Buggy 


Manoeuvre your jumping moon buggy over the moon's surface 
attempting to reach the landing pad on the other side without running out 
of fuel or crashing into a star mine. 


The moon buggy needs to build up thrust but be careful because once 
“lift-off has occurred it has a lot of forward momentum. The star mines 
are everywhere in space and you have to manoeuvre between them to 
get to the landing pad. 


Vour controls are: 
Z left 
‘C’ right 
‘M’ thrust 
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PROGRAM STRUCTURE 
INITIALIZATION 

DISPLAY SET-UP 

GET KEYBOARD CHARACTER 
VERTICAL CONTROL OF BUGGY 
THRUST SOUND 

ZERO FUEL TEST 
HORIZONTAL CONTROL 
MINE COLLISION TEST 
ERASE BUGGY 

DISPLAY BUGGY 

TEST IF BUGGY ON PAD 
DISPLAY REMAINING FUEL 
MINE EXPLOSION 

NEW GAME PROMPT 

DATA 


VARIABLES 

SC = SCREEN REFERENCE POINT 

X1 = HORIZONTAL POSITION OF BUGGY 
Y1 = VERTICAL POSITION OF BUGGY 

X = PREVIOUS HORIZONTAL POSITION 
Y = PREVIOUS VERTICAL POSITION 

FU = FUEL 

К = KEYBOARD VALUE 

VV = VERTICAL VELOCITY 

D = VERTICAL DISTANCE 
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LINES 
1—15 


20 — 45 & 200 — 2050 


50 

52— 77 
56 

78 

80 — 86 
87 

90, 102 
100 

101 

102 

200 — 210 
220 — 235 
10000 — 10025 


MOON BUGGY 


1 POKE 55,255 + POKE 56,47 = V = 53248 

5 POKE V + 32,0 + POKE V + 33,0 

5 FOR І = 12544 TO 12551 + POKE 1,0 
5 POKE 54296,15 

10 FOR I = O TO 111 $ READ A + POKE 12288 + I,A 
5 NEXT 

12 POKE V 4 24,28 

15 X =4ዱ 2 Y = 17 5 SC = 1 
5 KB = 197 + FU = 250 

20 GOSUB 2000 

25 FOR I = 1 TO 25 

SO Р = INT ( RND (1) 8 430 ) 
5 IF PEEK ( SC + P ) < > 32 THEN 30 

35 POKE CO + P,10 + POKE SC + P,12 + NEXT I 

37 PRINT " EJ ESCCCCCCCCCCCCCCCCCCCCCCCC" 3 

40 PRINT 
" ሯፎ መ ) [e] መ [a [eT [e (el [el [el [e] [e] (e [ወ] [ወበ El ED 

[el 88 ШВЕКС"; 

45 PRINT 

"Е [al ዘዘ ዘዘ HB ге ( [e] [е [e] [ወባ [e] [ወባ [а ] [e] (од ] [el (ед (e (ей 
(el (e (el ፳፪ BR EH GAHIJ' 3 

50 К = PEEK ( KB ) * IF FU < 2 THEN 60 

52 IF K < > 36 THEN 60 

55 ሃሃ = W - 1 5 FU = FU - 2 
5 IF W < - 5 THEN VV = ፦ 5 

56 POKE 54273,72 ፥ POKE 54272,169 + POKE 54277,15 
2 POKE 54276,0 : POKE 54276,129 

60 VV = VV + .5 2 IF VV > 10 THEN VV = 10 


* NEXT 


65 D = VV / 10 5 Y1 = INT ( Y + D D 
5 Р = PEEK (SC + ҮІ * 40 + X ) 
5 IF P = 2 AND VV > O THEN FU = FU — .05 
> VV = O * D = Q 
67 IF P = 12 THEN 200 
7O IF P = O THEN X1 = X — 1 5 Y1 = Y + 1 
5 FU = FU — .1 = GOTO 86 
75 IF Р = 1 THEN ХХІ = X + 1* ҮЛ = Y + 1 
5 FU = FU — .1 + GOTO 86 
77 Y1 = Y + D * ፲፻ Yi < 1 THEN Yi = 1 УУ = 0 


78 IF FU < 1 THEN 400 
80 X1 = X + ( K = 12 ) - ( K = 20 ) 
5 FU = FU + ( K = 12 ) + ( K = 20) 
5 IF X1 < O THEN X1 = O 
85 IF X1 > 39 THEN X1 = O 
86 IF X = X1 AND INT ( VI ) = INT ( Y ) THEN 90 
87 IF PEEK ( SC + INT ( Y1 ) 8 40 + X1 ) = 12 
THEN 200 
88 IF PEEK ( SC + INT ( VI ) ቁ 40 + X1 ) < > 32 
THEN 100 
90 POKE SC + INT ( Y ) ¥ 40 + X,32 = X = X1 *Y = Y1 
100 Yi = INT ( Y ) + POKE CO + VI t 40 + X,7 
5 POKE SC + VI ፄ 40 + X,11 
101 IF X > 33 AND X < 37 AND INT ( Y ) = 19 
THEN 300 
102 POKE SC + FU / 10,32 


32 


105 
200 


205 


210 


220 


225 
230 
235 
300 
305 


310 
400 


2000 


2003 


2010 


2015 


2020 


GOTO 50 

POKE SC + INT ( Y ) % 40 + X,32 
* Y = INT ( Y1 ) * POKE CO + Y $ 40 + X,2 
* POKE SC + Y ¥ 40 + X,13 

POKE 54273,34 + POKE 54272,75 + POKE 54277,127 
+ POKE 54276,0 + POKE 54276,129 

FOR I = 1 TO 2000 3 NEXT = POKE V + 24,20 


5 PRINT 
" £2 EE 24 YOU „ CRASHED „ INTO „A „MINE [e] (е ሀበ (a (e1" 

PRINT " BJANOTHER , GAME?" 5 POKE 54272,0 

5 POKE 54273,0 
GET ñ$ > IF A$ = "Y" THEN 12 
IF ñ$ < > "М" GOTO 225 
END 
FOR 1 = 1 TO 2000 : NEXT 


POKE V + 24,20 
5 PRINT 
" CI = ESWELL . DONE, a YOU , COMPLETED , YOUR „ 
MISSION [e] ሀወ] ወበ (el [e1" 


GOTO 220 
POKE V + 24,20 * FOR 1 = 1 TO 1000 * NEXT 
* PRINT 
" а YOU „RAN „OUT „OF „FUEL! (04 (el [ei [e] [el [e " 
5 GOTO 220 
PRINT 
“ ia Y (а Y (өт (e) (e) [e] (еп (а [e (e) [e E El El El El El El 
El El El El 9BA BI EJ BI E El El El El PI BI El El El El 
P] EJ FI El BI BI El El BI BI BI El El BI El BI El El BI El ОВ"; 
PRINT 
"CCC El El 6] El El El BI El El El BI EJ El El BI El El El El 
FI E] El El FI E] El BI BI BI BI El El El EJOCCCCCA 
BI El BI El BI El El BI E] El BI El BI El BI BI Pl BI Pl El БІ"; 
PRINT 
" El El El FI El El El El El El EIOCCCCCCCA El El El 
BI FI El El El FI FI BI El BI BI BI BI El E! Pl El El BI El 
EJ BBB El EJ] OCCCCCCCCC El РІ ЕРЕ"; 
PRINT 
" Bl El FI EJ El EJ Pl EJ El El EA El El El El El БІСССІА 
БІ БІССССССССССА El El El El BI El 6) BI El El El 
ElØBBCCA El "а 
PRINT 


El 
"CCCCBBCCCCCCCCCCC Bl E] EJ El EJ 
EJ OCCCCC БІСССССССССССССССССВВА 
El Bra"; 
PRINT 
"BBCCCCCC El 51:ርርርርርርርርርርርርርርርርርርር 
El EI OCCCCCCCCCBBBBBACCCCCCCCCCC" ; 
PRINT 
"CCCCCCCCCCA E] CCCCCCCCCCCCCCCCCCCCCC 
cccccccccccccccc BICCCCCCCCCCCC" 3 
PRINT "CCCCC"; 
PRINT 
"CCCCCCCCCCCCCCCCCCCCCCBCCCCCCCCCCCCCCCCC C "3 
PRINT 
"CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC" 3 
* POKE 2023,3 
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2050 POKE 56295,1 : RETURN 

10000 DATA 1,3,7, 15, 15,31, 95, 255, 128, 192, 224, 240, 248, 
248, 252, 255 

10005 DATA 149, 255, 255, 255, 255, 255, 255, 255, 255, 255, 
255, 255, 255, 255, 255, 255 

10010 DATA 0,0, 24, 126, 126, 40, 24, 36,0, 0, 1,2, 252555555 
66, 129,0,0,0,0,0,0 

10015 DATA 0,0,128, 64, 64, 64, 140, 140, 0,0,0,0, 63, 48, 
131, 4,0, 0,0,0, 255, 0, 255, 24 

10020 DATA 0,0, 0, 0, 252, 34, 193, 32, 0, 120, 68, 254, 255, 
66, 231, 66 

10025 DATA 0,0,0,16,40,14,0,0, 8,56, 252, 63, 60, 52, 34,64 


CHEXSUM 

) ር መጪ 181=2278 1ON25=2472 

5=2487 192-1089 
18-2281 195-475 TOTAL= 171732 
12=672 209-5231 
15-3832 PAS-3417 
28=347 217=5Ø569 
25-712 220=2450 
30-2994 225=1243 
3521815 230=1327 
37=2328 235=129 
420-1593 300-1029 
45-2107 305=5199 
=M=1598 310-527 
=2=369 4መፎ ==መ7= 
55-3204 2200-28223 
5623417 28005-4092 
RA=2 150 2819=432e9 
65269357 2115-4241 
e7=843 2028-5376 
70=3501 PØPS=5222 
TS-3591 20920-85515 
77-9283 разя-вза 
78=867 2040-3701 
279-4910 2245=4298 
es-1136 2250=728 
2a6=2012 1LAAAA=3A74 
27=2426 12205=2759 
38=2612 19918=3373 
94=2522 10015-32336 
12023544 1ne20-27T87 


Higher or Lower 


Bet on the card being higher or lower than the previous one. If you win, 
you may get the chance to go for double or nothing. 


The routines used to draw cards and select them from the deck are good. 
They would be useful in creating programs for your own card games. 


All instructions necessary for the game are in the program. 
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PROGRAM STRUCTURE LINES 


INITIALIZE — SCREEN 0-1 

— DECK 4—8 
WAIT FOR DEAL COMMAND 10 
PRINT MONEY 11 
PICKA CARD 14— 16 
PRINT CARD 17 — 37 
BUZZ 38 — 39 
IF WIN 40 
MUSIC AND MESSAGES 50 — 52 
PLAY AGAIN? 55 — 75 
ELSE MESSAGES AND PLAY AGAIN? 80 — 95 
CLEAR BOTTOM OF SCREEN 100 — 110 
VARIABLES 


S$ = SYMBOL OF SUITS 

C — PACK OF CARDS 

M = MONEY 

D = DOUBLE OR NOTHING 
CU = HOW MANV TURNS 
D = POINTER INTO PACK 
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HIGHER OR LOWER 


O PRINT "EZ" + POKE 55281,7 = POKE 55280, 6 
5 DIM 5% ( 52 ) > DIMC (52 ) * M = 20 5 D = O 
* CU = O 


1 POKE 54296,15 + POKE 54276,0 s POKE 54278, 240 
4 FOR J = О TO 3 = FOR I = 1 TO 13 

5 C 1 +J 13 ) = Іс 8$ ( I +J 313) 

= "ma" 

5 IF J = 1 THEN S$ ( I + 3 ፄ 15) = "EY" 
ӨЛЕ J = 2 THEN S$ (I + J 8 12 ) = "а $" 
7 IF J = 3 THEN 566 (I + J t 15 ) = "Ea @ ` 
8 NEXT I,J 
10 POKE 54276,0 + POKE 54276,17 
11 POKE 54273,34 + POKE 54272,75 + PRINT " Ый ESMONEV 


^ ሬ 4 2 a a ВВ NS NN EE ШЕ ВВ"; ከ; "Р" 2 GOSUB 100 
13 POKE 54273,0 + POKE 54272,0 * Cu = CU + 1 
14 FOR I = i TO 4 


15 = INT ( RND ( Í ) ¥ 52+ 1 ) * IFC (P ) = O 
THEN 15 

16 Ni = N + N$ = STIRS CC CP) ) * N = C (P) 

17 IF ር C P) = 1 THEN N$ = " A" 

18 IF ር ( P) = 11 THEN N$ = * „40“ 

1? IF ር (C P) = 12 THEN N$ = " 1Q" 

20 IF C (P) = 13 THEN N$ = " AK" 

21 IF C ( P ) = 10 THEN N$ = "10" 


22 C ( P ) = O + PRINT Е, a å å mTTTTTTTT Ed 
HIGHER , ОК , LOWER m TITITTTTTT' 

23 IF I = 1 THEN 27 

24 PRINT " iS A (sl መ! [е] (a መ] [e] («1 [ወ] [е] (e) [ወ] (e) ሀባ [e] [e] (GI Ez 
HIGHER , OR 4 LOWER?" 

25 PRINT " Eg (el [ሀወ [e] [a (a [ሀበ (a [ወበ (e) [ወበ (e) [е] (e) [ወ] [el (ел (el [ш 
HIGHER , OR , LOWER?" 


26 GET A$ г: IF ñ$ < > "Н" AND ñ$ < > "L" THEN 25 
27 PRINT "ES BI"; = IF I = 2 
THEN PRINT “ ESEJ BI BI BI El BI BI El BI BI Pl"; 
28 IF I = 3 
THEN PRINT "E BI El El BI El El 
BI El BI EJ BI BI БІ 
29 IF I = 4 
THEN PRINT ' & BI El BI BI BI El 
El El El BI El El Bl 
30 PRINT "fel መ] (e) (e) (ed (el 52 El ፪፪ El E 
ሀዘ GU ዘዘ SB ዘዘ ES . „ „ ል „ Ed 
^ a a a EH (21 BE ዘዘ ዘዘ BE GE GB 
31 PRINT °" (E! I ЕН ዘዘ ፳፪ TR 
32 PRINT "В ШЕ 00 ዘዘ EE EE ЕН , 
EB 88 EB .. ma a Юг NE HR 
ЕН па ዘዘ ዘዘ GA ES EB 


33 PRINT " EJ El" 
+ IF I = 2 THEN 
PRINT “ E El FI El BI FI BI El bl El БІ БІ"; 
34 IF I = 3 
THEN PRINT “ EB EJ El 


35 IF I = 4 
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THEN PRINT " £j El El El EJ BI El BI BI El E] El El 
El FI FI BI BI FI El EI FI El El El El El El E] El El Bl"; 
PRINT " [eq [а (а [e] ወ (е1 (ед El 38") МФ; 
+ PRINT " ሀጠ ሀበ [@1"”;S$ (Р ) š + PRINT " (e [e] (e) JE" 


3 NS 
POKE 54276,33 5 POKE 54273,6 * POKE 54272,206 
+: FOR Z = 1 TO 200 = NEXT = POKE 54273,0 
POKE 54272,0 


IF A$ = "H" AND NI > М THEN 80 
IF AS = "L" AND NI < N THEN 80 
FOR J = 1 TO 300 5 NEXT J,I * FOR I = 1 TO 244 


STEP 2 + POKE 54273,1 + NEXT : POKE 54273,0 

IF D = 1 THEN PRINT ~ [e] (61 [е] [e] መ መ መ (ел መ መበ መ 
ሠ] [e] ሠ መ መበ መ ESYOU' VE a DOUBLED 4 YOUR , MONEY" 
5 M = M t 2 GOTO 53 

PRINT " Eg [el [e] (а (а መ] [ሀወ] [a (а [e [ወ] (en [el (el [ወ] [el (el [el 
MIWELL , DONE , YOU* VE „WON „БР“ 5 M = M + 5 

PRINT " EJ MONEY . a å a å BE BE ШЕ BE ШЕ"; М; "Р" 

D = O 5 PRINT "(е [e] (a ወ] [e] (а (а መ] (а [el (en 
[s] ሀወ [e] [е] [e] መዉ [8100 „ YOU a WANT 
4 TO 4 PLAY 4 AGAIN?" 

BET A$ : IF A$ = "М" THEN END 

IF А% « > "Y" THEN 56 

IF RND ( 1 ) < .5 THEN 70 

PRINT “ ወ m DO „ YOU 4 WANT . TO „ TRY „” 
DOUBLE „ OR . BROKE’ ?" 

БЕТ A$ е IF A$ = "N" THEN 70 

IF А6 < > "Y" THEN 60 

D=1 

IF CU > 9 THEN 4 

GOTO 10 

FOR I = 244 TO 1 STEP - 2 : POKE 54275,1 з NEXT 
5 POKE 54273,0 

PRINT "ЕЗ [а (а [e] [a (ей (a [a [ወባ (a (a [a (a [a Гел (a [a (e 
MBHARD , LINES , VOU'VE . LOST!" 

PRINT “ЕЗ FAMONEY a a å a å HE BE EE EE BE"; M; "Р" 

M =M - 5 5 IF М = 0 OR D = 1 THEN PRINT " YOU’? 
RE . BROKE! , BYE" + END 

D = 0 5 PRINT "DO „YOU „ WANT „TO „PLAY a AGAIN? 


se 
a a a + a a ж 4h. ሔ ሔ ሔ ሔ + 


СЕТ 6$ + IF AS = "Y" THEN 70 
IF AS < > "N" THEN 88 
END 


PRINT ВВ [а (vi SG" = FOR I = 1 TO 19 

PRINT “a a a a a a ^ de de ^ ^ a de ሔ ^ ^ ሔ ሔ ሔ EA 
^ a а a А a ^ a a ^ ^ de a de ж ^ ^ a "3 

NEXT 

RETURN 
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CHEXSUM 


A=4148 
1=195 


2 


Г- 
ርጋ 
T 
e 
ዘ 

የ 
ሀ) 


11=4359 


ር; 
Y 
С 


" 
(т! 


Qi 
qu 
am 
=ч 
ዘ 

© 
Ou 


er 
Ш) 
e] 
— 
и 
EJ 


ES 


SCREEN 
DISPLAY 


ቶተተተተተተተዘ!ር!ነጀዞ 


ፉሩ 
ሩ 
+ 
+ 
+ 
+- 
+ 
+ 
+ 
+ 
т 
ፎ 
=i 
Y 
e 


480-1461 


=“ 


JON, SP 
Y AGAIN? 
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North Sea Copter 


This game really tests your skill and though it might seem otherwise it is 
possible to complete it. 


You must land your copter on an oil rig, at night, in the height of a storm, 
visibility is nil and you rely on lightning to see the rig. The wind buffets you 


about and as you manoeuvre or hover, gravity will pull you down, you 
must correct this by increasing lift. 


On the right of your screen are your instruments, watch your fuel and rate 
of descent, to land your rate must be below 2. 


'A' moves you to the left, 'D' to the right and 'W' gives you lift. 
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PROGRAM STRUCTURE LINES 


INITIALIZATION 0—4 
SETUP GRAPHICS 5— 19 
UPDATE GAUGES 20— 21 
LIGHTNING TIMING 22— 35 
READ KEYBOARD 36 — 55 
UPDATE SPRITE POSITION 66 — 80 
CRASH HANDLER 100 — 200 
LANDING HANDLER 500 — 640 
NOTE SEQUENCE FOR GOOD LANDING 800 — 890 
SPRITE DATA 9000 — 9070 
VARIABLES 


V = POINTER TO DISPLAY CHIP LOCATIONS 

CO = DIFFERENCE BETWEEN VIDEO AND SCREEN MEMORY 
T = LIGHTNING TIMER 

X = SPRITE X COORDINATE 

Y = SPRITE Y COORDINATE 

D = WIND DIRECTION 

PE = SPRITE COLLISION FLAGS 

F = FUEL LEFT 

G = DESCENT RATE 


? 
m anna 


= 
5 
i 
E 
> 


a 

в 
FTT E 
"s Б 
қ 

B 

4 


SPRITE 


SPRITES No. 1 & No. 2 
FORM A 
HELICOPTER 
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NORTH 


Q 


10 


11 


15 
16 
17 
18 
19 
ZO 
21 
22 


23 


30 


SEA COPTER 


PRINT " Ç3" + POKE 53280,0 + POKE 53281,0 
+ V = 53248 : CO = 54272 + POKE 54296,10 
5 POKE 54276,0 

POKE 54276,129 + POKE 54278,240 

POKE 54273,0 : T = O + X = 35 + 
INT ( RND ( 1 ) * 180) 2 Y = 55 

D = ( INT (RD ( 1 ) ፄ5) -2) / 2 

10 + POKE V + 21,3 + POKE 2040,13 

POKE V + 39,1 + POKE 2041,14 + POKE V + 40,4 

POKE V 4 28,3 

POKE V + 37,5 + POKE V + 38,7 * FOR I = O TO 190 
+: READ Q 2 POKE I + 852,0 + NEXT 

PRINT ” 83 ወ] [a [a [a (a [e (el [al (ей (еі BB ዘዘ ዘሀ EE EB БЕ БЕ ዘዘ BB 
ВВ BE Gå [A — = — > GG Б) ሀባ Ва BE ዘዘ ዘዘ ዘዘ ዘዘ ዘዘ ዘዘ 
ŚBWIND „ a Ga :l: (е WE ዘዘ ዘዘ ВВ EE ВЕ ВВ ВВ: г: А å å å å „ 
iE" 

PRINT "(ej ዘዘ ዘዘ BE BB EE HH ዘዘ ዘዘ ዘዘ ዘዘ BI I: SEDESC. „ ፳፳ :l: 
(ej ዘዘ BE ዘዘ ዘዘ ВЕ ዘዘ ዘዘ BE CI: А 2 2 ል „ < Gli 

PRINT " መ] ዘዘ ዘዘ ዘዘ ዘዘ ዘዘ ዘዘ ዘዘ ዘዘ ዘዘ GR ዘዘ :[: FUEL .. 4 ва 1: 
lej BB BE ዘዘ ዘዘ ዘዘ BE EE ዘዘ [፡ 2 å å å å a D [e BE ዘዘ ዘዘ GE BR 
EB ВЕ HH [S — ЕРІ" 

FOR 1 = 56016 TO 56055 + POKE 1,6 
+ POKE I - CO,223 + NEXT 
+ FOR I = 56056 TO 56296 + POKE 1,6 

POKE I - CO,160 : NEXT = POKE V,X 


+ d || «+ 


+ POKE V + 2,X + 24 + POKE V + 1,Y 
+ POKE V + 3,Y + PE = PEEK (V + 31 D 
PRINT " kg (а © la © © (e El EJ El El El m 3) Г: (O WR ВЕ BB 1:03 
Са E: (e) BB BB ዘዘ ዘዘ в CODI ዘ ፡ OO ዘዘ ዘዘ BABE ፤ D ርጋ E: (e 
BS BE ዘዘ ዘዘ  ፤ ርጋ D Е: ሮባ ፳፪ BE ዘዘ RE : E CQ ር1ቨ፡" 
PRINT “ም” El El EJ (1 DJ C YE € ዘዘ ዘዘ ዘዘ HE ዘዘ в ርጋ ርጋ ር EL 
a a a a IB EEI መ ርባ BB ዘዘ ዘዘ ዘዘ ሀዘ ዘዘ ዘዘ ዘዘ ዘዘ ፳፪ 
së ВВ BE BE BE I 0 С Са Са 5 a „ „ш. „1-2 E" 
PRINT "HAAS å å HE, a ል.” A a ዉል ል ሒል” a a A 
a ШЕ!" 
PRINT "BI E] El i3 A EJ M TNT BI BI BI BI BI BI BI BI El 154 (2 
El El El El m [r] 
PRINT " El E] El [4 ገ FI, EI El El RR BI BI BI BI BI G3 ገ" 
PRINT " BI EI EI [3 [7] Fl Œ PE BI BI El El BI BI BI BI BI гл" 
PRINT " RB] BI BI i3 LI BI BI El BI PI BI BI BI BI El El El ГЛ" 
PRINT "ЕЗ |1 [e] ге) (e) (e [e] [ወ] (M (a [e (e) [9] BB ЕЕ Eš ፳፪ НЕ EE ER 
ВВ i29 . a a BB HH HE'":;D + PRINT “ (el (е DE ВЕ ዘዘ ዘዘ БЕ HE 
MW... BE ዘዘ ዘዘ ШЕ"; INT ( G ቁ 10 ን / 10 
PRINT ” መ?! [ed ዘዘ ዘዘ RE ዘዘ ዘዘ EE ВВ ዘዘ _ . å 4 ШЕ ዘዘ ዘዘ ШЕ“ 


SINT ( F ¥ 10) / 10 
T= Т + 1 = POKE 2041,14 + POKE 54273, 100 


IF Т = 30 THEN POKE 55281,11 
5 PRINT "ЕЗ [m (61 መ! ሀባ [e] ВЕ BB BB BB BB a ІЛ (21 ВЕ Ви с: ЕШ 


IF ፐ = 32 THEN 
PRINT ” 6 [а [e] [el 
(ei ዘዘ ዘዘ . ዘዘ ዘዘ | 


teg BA RE EE ዘዘ ዘዘ . (= EE ዘዘ . BIEN. 
፳፪ BE . ዘዘ ዘዘ . [C ዘዘ ፳፪ . ዘዘ ዘዘ . " 


BB 
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ra 


890 


IF Т = 35 THEN POKE 53281,0 ዩ T = O 
POKE 54273,0 
PE = PEEK ( 197 ) 
IF PE = 18 AND F > Q THEN X = X +2: F =F -፦ .1 
IF PE = 10 AND F > O THEN X = X — 2: F =F = .1 
IF РЕ = 9 AND Y > 50 AND F > Q THEN Y = Y - 2 
+: G =O 5 Е =F ፦ .3 
X = እ + ከ 5 IF RND ( 1 ) < .1 THEN X = X + 2 
ҒҒ ፦ „1 


POKE 2041,15 : POKE 54273,100 + Y = Y + 6 
+ б = 6 + „2 IF X > 215 THEN X = 215 
IF X < 32 THEN X = 32 
POKE V,X + POKE V + 1,Y + POKE V + 2,X + 24 
+ POKE V + 3,Y 
IF F < O THEN POKE 54296, 1 
IF X > 11 AND X < 120 AND Y > 135 THEN 500 
IF PEEK ( V + 31 ) < > O THEN 100 
POKE 54273,0 
GOTO 20 
POKE 53281,11 
[е1 [e] RE ፳፪ НЕ GE | ізі (7 || : 
HH L7) (c) HE ዘዘ | ዘዘ -ገ ሮባ EE БЕТ. НЕ ዘዘ Л ሮባ SE ዘዘ — EH ፳፪ Ll" 
POKE 54296,15 * FOR I = 20 TO O STEP — .2 
$ POKE 54275,1 + NEXT = POKE 54275,0 
FOR I = 1 TO 20 = POKE V,X — I + POKE V + 2,X + I 
+ NEXT 


FOR I = Y TO 220 + POKE V + 1,1 * POKE V + 3,1 
5 POKE 54275,1 + NEXT : POKE 54275,0 
POKE V,O = POKE V + 1,0 + POKE V + 2,0 
2 POKE V + 3,0 
POKE 53281,0 
* PRINT ” E la [e] (e) ርባ [e] ዘዘ BE GE ዘሀ ፳፪ m A በ BA ዘዘ ፦ ፳፪ 
BE ርጋ [e] БЕ ዘዘ — ዘዘ ፳፪ L? በ BE ዘዘ | HH ፡ገ ጣብ | ፳፪ —: | ፳፪ СЛ" 
FOR ї = 1 TO 2000 5 NEXT 


RUN 
IF 6 > 2 THEN 100 
POKE 53281,2 + POKE V 4 1,136 + POKE V + 3,136 
2 POKE 54273,0 + POKE 54276,0 + POKE 54276,17 | 
GOSUB 800 ; 
PRINT "Ей (Гей Y [ወ (a (ей [e] ር [e] (a (B) (e? (a [e] (e) (e) (e) (e [e) (e) 
al [4 El El El %%%%%%% _ WELL a DONE „ ቁቆቓ ይሄ ቁ” 
PRINT “ [3 E] El El El El m EJ (€ . „ JANOTHER,GOP, å 4" 
GET ለቆ : IF AS = "Y" THEN RUN 
IF А% < > "N" THEN 625 
PRINT “ [53 El BIBYE , BYE." 


END ብ 

FOR 1 = 30 TO 100 STEP 2 5 POKE 54273,1 + NEXT 
FOR I = 140 TO 95 STEP - 1 = POKE 54273,1 * NEXT 
FOR I = 5 TO 20 STEP .4 + POKE 54275,1 + NEXT 
FOR I = 90 TO 70 STEP -፦ .3 + POKE 54273,1 + NEXT 
FOR I = 100 TO О STEP — 3 = POKE 54273,1 + NEXT 
FOR I = 20 TO 10 STEP — .2 + POKE 54273,1 * NEXT 
FOR I = 90 TO 70 STEP — „2 + POKE 54275,1 = NEXT 
FOR I = O TO 10 STEP „1 * POKE 54273,1 + NEXT 


POKE 54273,0 + POKE 54277,0 
RETURN 


43 


9000 
9010 
9020 
9030 
9040 
9050 
9060 


9070 


DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 


0,0,0,0,0,0,0,64,64,0,17,0,0 


DATA 7,174,0,10,170,0,4,0,0,17,0,0,64,64,0,0,0, 
0,0,0,0,0,0,0,0,0,0,0,0,99 
DATA 0,0,0,0,0,0,85,85,85,0,16,0,0,215,0,0,251, 
0,3,184,192,3,184, 240 
DATA 15,186,176,15,190,176,171,190,252,171,170, 
252,187,255,252,15,255,240 
DATA 3,223,192,0,16,0,0,16,0,5,85,64,0,0,0,0,0, 


0,0,0,0,99 


DATA 0,0,0,0,0,0,0,84,0,0,16,0,0,215,0,0,251,0, 
3, 184, 192, 5, 184, 240 
DATA 15, 186, 176, 15,190, 176, 171, 190, 252, 171,170, 
252, 187, 255, 252, 15, 255, 240 
DATA 3,223, 192, 0, 16,0, 0, 16, 0,5, 85, 64, 0,0,0,0,0, 


0,0,0,0 


CHEXSUM 


Be-4299 
l-1388 
e-4814 
3-459588 
4-325898 
3:4629 
5=5151 
7=8739 
S=4469 
95149 
10=2029 
11-8413 
181995 
1522155 
17=1331 
is-1320 
19<1 152 
24=8522 
5 1=3433 
e2-1905 
бетага 
20-5338 
2551511 
362528 
418-786 
25-2588 
30-2572 
53=3527 
56=2344 
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fw ¿D 


2230-2037? 
358=2076 
250-2083 
=78=1861 
32320:1167 
зай- 14: 
AAA=4qqt 
pinm-43285 
пРа-зта4 
230-4321 
AAA=2987 
ASL-3510 
AED-43P1 
679=2802 
AL= 219935 


Flight Simulator 


68361" 


Test your skill at guiding your light aircraft onto the landing strip. Can you 
make a perfect landing? Watch your instruments as the runway comes 
up into view, you get all the feedback you need to do the job. 


Your controls are: 
1' gives a cockpit display 
'F3' gives a map 
'A' tilts the plane to the left 
'D' tilts it to the right 
'W' alters levelling up 
'X alters levelling down 
Keys 1 — 9 decide your acceleration/deceleration 
-—” reverses the acceleration/deceleration rate 
“space bar’ lifts or lowers your undercarriage depending 
upon its current position. 
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There are many ways in which to ‘fail’ your landing: 
if the plane is tilted on an angle 
if the last altitude reading was above 50 
(you've dropped the plane) 
if your attitude is not level 
ifyour undercarriage is not lowered 


Safe landing! 


SCREEN 
DISPLAY 


4 
ОСИЕК К alt 


> 


sË. 166” | 
ሽክ GES 
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PROGRAM STRUCTURE 
INITIALIZATION 

GET KEY PRESSED (A$) 

PRINT COCKPIT DISPLAY 

PRINT MAP DISPLAY 

CHANGE ATTITUDE 

RANDOM TILT 

REVERSE ACCELERATION 

READ SPEED KEY 

LIFT OR LOWER UNDERCARRIAGE 
CHANGE SPEED 

CHANGE ALTITUDE 

PRINT ALTITUDE, DISTANCE, SPEED 
CHECK DISTANCE AND ALTITUDE 
PRINT OUT COCKPIT MESSAGES 
RESTART MAIN LOOP 

SOUND ROUTINE 

ROUTINES TO PRINT COCKPIT VIEWS 
PRINT MAP 


PRINT OUT DETAILS OF LANDING AND 
ASK IF PLAYER WANTS ANOTHER GAME 
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LINES 
0—25 

30 

35 

36 

50 — 56 
67 

70 

75 

80 

90 — 95 
100 — 105 
134 — 137 
140 — 148 
160 — 179 
180 

182 — 190 
200 — 730 
1000 — 1070 


5000 — 6040 


VARIABLES 

AL = ALTITUDE 

AT = ATTITUDE 

U = UNDERCARRIAGE 

DI = DISTANCE 

A$ = HOLDS KEY PRESSED 

CS = START OF COLOUR SCREEN MEMORY 
SI = SPEED INCREMENT 

SP = SPEED 

SD = ACCELERATION OR DECELERATION 
SC = SCREEN MEMORY 

F = FUEL 

H = TILT OF PLANE 

M = 1 MAP VIEW, 0 COCKPIT VIEW 

| = TEMPORARY STORAGE 
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FLIGHT SIMULATOR 


36 
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PRINT "£4" + POKE 53281,0 : POKE 55280,9 + 
SC — 1024 : CS = 55296 

POKE 54296,5 + POKE 54277,0 + POKE 54278,0 : 
POKE 54276,0 + POKE 54278,240 : POKE 54276,129 

POKE 54275,0 + POKE 54272,0 > U - 1 + AT = 0 > 


F = .6 + AL = 5000 + INT í RND ‹ 1 ) ¥ 1000 ) 
+ DI = 2500 
Н = О 5 М = 0: SP = 300 2 SI = 5 + SD = 1 
PRINT “ 55 IN 54 å å MH. 4. 8፡ ጋ i: EN г? 


Fa hal 2.2 ЖЕСЕ E3 fat 5.2 bat bat M3 
ma i a. 2 N a5 
P 


BB EE ዘዘ NI пиа DU | 0 3 4-10 å 4 "5 > 
NEXT 

PRINT “lal ሬ 26 + m ane =.፡ መረ ር ፎር ረር EM 
EL III IL III SI ሁጎ [3 
a a а PR 


PRINT "Е ©) El El El El BI El EJ El El 
a ፎግ ©) BB 8B ዘዘ HE [L3 . (1 (е вв GR 

FOR I = 440 TO 479 : POKE CS + 1 
POKE SC + 1,160 + NEXT 

PRINT " [e] (a (e) (a (91 (€ ES Pli GHEE RI ååå LÀ 
BJ a a 2 Жйїл=<= A. å a a a a ЕАТОМЕК , MESSAGE: 


БІ Z L7 (© SR BI (1 
BE ZO" 


El 
as 
9 


3 


2 04; 
PRINT "а a ፌ a .ሬ 4 ፲[ a «a . NPD O. EE 
DF . 2 . . a пеи аз ق فخ‎ зы" 
PRINT “I „ am C363, АП. . 2 . ሬ . . . йы: 

m=: E бай a P a. te a а” ፐፐ | TE a ж. de ж. P PM + м. > ж. ili Е 
PRINT "la „ СЧ EG GS SPT å a å a a a a 2 M GT 2 

iy: BRE ж. ae ж. a + ^ PTT ili P ^ a a. ж da ж a dt da E " 
РКІМТ ር ሔ ም ж atra. P P ж A a P a 4 ሔሕ An :1፡ ii :1፡ Eš 

l5. a ж ዉሕ P A "TRE a a a a de PN ж EM PN ж. ig 
PRINT Ë ж. ж. ж ሔሕ de аы үч de da ж a a da de м. dg II 

i م‎ a a a ى‎ a a EG EG قح‎ ee ss es gg" 


PRINT "ia a GE a 4 iI; 

PRINT " lg „ ІСІ ІІ. 
ALTITUDE a å å a at" 

PRINT "IM . iL a a „il a a a 


» 

= 

, 

4 
b 

b 

h 

4 

ию. 


DISTANCE 


, 
ኑ 
› 
ኑ 
4 
b 


^ 


PRINT "(4 , BSS 9H] a a a a a < < < <= Fš 
UNDERCARRIAGE: a UP" 
PRINT " (HORIZON. å å a a a < +< FASPEED 


a 84 
de de de PY ^ PY ^ A^ 7 


POKE CS + 960,9 + POKE SC + 960,223 + 
POKE CS + 999,9 + POKE SC + 999,233 

POKE 54273,0 + GET A$ 

IF ልቆ = "gg" AND M = 1 THEN PRINT "EJ" : M = O + 
POKE 53281,0 + POKE 53280,9 + POKE 54273,100 + 
GOTO 5 Note: ልፄ = Fl Key 

IF AS = "ER" AND M = O THEN PRINT "(2" = M = 1 + 
GOSUB 1000 Note: A$ ЕЗ Key 

IF M = 1 THEN 90 

IF A$ = "W" THEN AT = AT - 1 + IF AT < - 1 THEN 
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AT = — 1 


IF A$ = "X" THEN АТ = AT + 1 = IF AT > 1 THEN 
AT = 1 
IF A$ = "X" OR AS = "W" THEN GOSUB 500 
IF A$ = "ñ" THEN Н =H- 1 3 IF H < — 1 THEN 
H=-1 
IF ñ$ = "D" THEN Н = H + 1* IF H > 1 THEN Н = 1 
IF ñ$ = "А" OR AS = "О" THEN GOSUB 600 


IF RND ( 1 ) < .05 THEN Н = INT 
€ RND (C ) ¥ 3) - 1 5 GOSUB 600 

IF A$ = "-" THEN SD = - SD + POKE 54273,1 

POKE 54276,0 

IF VAL ( ልቅ > > © AND VAL ( ñ$ ) < LO THEN 
SI = VAL ( A$ ) = POKE 54276,0 + POKE 54276,33 + 
POKE 54273,100 

IF A$ =" ," THEN U = — U = GOSUB 700 

SP = SP + SI $ SD * IF SP < 50 THEN SP = 50 

IF SP > 450 THEN SP = 450 

IF F < 6 THEN AL = AL — INT ( SP / 50 + AT $ 


(SP / 5) / 5 ) = GOTO 110 
AL = AL — 100 
IF F < 7 THEN F = F + ( SI / 3200 ) 
IF F < 7 THEN DI = DI — .1 ፦ 
(SP / 300 + U / 30 ) / 3 ፦ SP / 50 = GOTO 130 
DI = DI ፦ .2 


IF DI < О THEN 5000 
IF DI > 30 AND AL < O THEN 5000 
IF M = 1 THEN 140 


PRINT " m 53 (е1 (e (61 [e] (eq (e) ሀበ [el (e) [е] [el [ей 
[e] [e] [eq (e) [e] (el [el (е El El El El El El El El El El E) El El 
El El El El El El El El El El El El El El El El 

PRINT " sl El] El El FI El El El El FI BI El El 6) El BJ FI El 
Fl EJ EJ E] EE El El El El El El El . . . . . . ፳፪ 
EE ፳፪ EE BE Hš BE"; INT (DI) . 

PRINT " [e] El E] El EJ EJ El El E] FI EI El El El FI El FI El 
ыыы кк ек 51 EJ 588180... . - . 8 
HU GR DÀ GE BA BA" ; SP 

PRINT "“OOOOOO0O00000 BI BI Bl Bl BI БЛ 
El El El El El El E] El El El 5"; 

IF F < 7 THEN FOR I = 1 TO INT ( F ) = PRINT 
" M 3 መ NE"; + NEXT 

PRINT 

IF F > 5 THEN PRINT " 3 (e) (a (e) [e] (a (a (е (e) (e) (e 
መ ሀ [е] [ө] (e) [e] (e) (e) El El El El El El El El Іші DANGER" 

POKE 54275,0 = POKE 54276,0 = POKE 54276,129 + 
IF AL < 10 AND DI < 50 THEN POKE 54273,10 


IF M = 1 THEN ЗО 

IF INT ( DI ) > 600 AND INT ( DI ) < 700 THEN 
GOSUB 200 

IF INT ( DI ) > 400 AND INT ( DI ) < 599 THEN 
GOSUB 250 

IF INT (DI ) > 200 AND INT ( DI ) < 299 THEN 
GOSUB 300 

IF INT ( DI ) > 100 AND INT ( DI ) € 199 AND 
AL < 300 THEN GOSUB 350 


50 


148 


IF INT 
AL < 200 THEN GOSUB 400 


IF RND ( 1) < .8 THEN 30 

PRINT "ЕЗ Y [e] (el (ет [e] [e] [e] (ей [ወ] [1 (e) [e] (A [e (e BB 
፳፪ RA GU EE ዘዘ ዘዘ EE BEBE ዘዘ ዘዘ ዘየ ዘዘ А. . å . ራ ል СЕ! 
፳፪ RA ዘዘ BE ዘዘ ዘዘ ዘዘ ዘዘ ዘዘ ዘዘ . å ኢ ል ሖራ ል < a" 

PRINT "ЕЗ ወባ ወ] © (el (e) © [e] (e) (e) (е? (e) (e) (el Le] (el 
ЕН ВЕ Па БЕ RE по НЕ OG OG БЕ па BE BE 14"; 

IF RND ( 1 ) < „7 THEN 176 

IF F > 4 THEN PRINT " „LOW „ON (е RE ዘዘ EE BE ዘዘ 00 
a FUEL" 5 GOTO 182 

IF SP = 450 AND DI < 300 THEN PRINT "COMING 
ል IN መ] ሀዘ ዘዘ EE EE EE ዘዘ ዘዘ НЕ ዘዘ BU BATOO „ FAST" = 
GOTO 182 

IF AL < 500 AND DI > 500 THEN FRINT "YOUR „ TOO 
4 [0] BB BB ዘዘ GR ዘዘ БЕ EE BE EE ዘዘ . LOW!" + GOTO 182 


IF F > Š 


(DI >) < во AND INT ( ОГ) > 30 AND 


AND SP > 300 THEN PRINT 


“ (el BETOO.FAST'" + GOTO 182 
450 AND DI € 300 OR AL < 500 
AND DI > 500 OR F > 3 AND SF > 300 QR 
RND (1 ) > „2 THEN 30 
"LOOKING 4 
POKE 54276,0 5 POKE 54276,17 ፥ FOR I 


IFF > 4 OR SP 


PRINT 


POKE 54273, 1 


GOTO 30 
POKE 54276,0 5 POKE 54276,33 


ጤ 
- 


FOR I = 
POKE 54273,50 
FOR I = 1 TO 100 
GOTO 30 
PRINT " 53 [el [е] ሀ 
El El El El El El 
RETURN 
PRINT " 53 ሀባ (a ሆባ 
El El E] El El El 


4 (91 BB RR ዘሀ RE RE ዘዘ ዘሀ па BR ዘዘ „ GOOD'" 


NEXT = POKE 54273,0 


10 TO 20 STEP .4 = POKE 54273 


5 NEXT 

(e) [e] (e) (A [ El El El El 
e El El El El El :ሥ-. (4 
(e) [ей (el (e) El El El El El 
el E 6] El El ai... (е ፳፪ 


si 


1 TO 50 = 


ra 
- 


NEXT = 


ж 


RETURN 
PRINT "Е [ed መ] ወባ ሀባ (a El El El El El El El El El 

BI EJ BI El BI El El EI El El bI"; 

PRINT "i... ሀባ BE ፳፪ EBE. . .. - (€ HH HH BUEN EE. .. 
ርባ ፳፪ ዘዘ ዘዘ ዘዘ 00 ВВ EE. . 0 4 4 ል „. በ HB HË 

RE EE EE EE ዘዘ ВЕ HH... . . ኢሒ ል ሒል ሒ „."“ 

RETURN 
PRINT * gg [ей Y [e] (e] (e) El El El El El El El E) El El El 

BI BI BI El BI BI El БІ БІ"; 

PRINT "i1... (© BB EB EE ዘ8..... (el RE EE በበ EE ፪፪ BR. 

ል А-а a [E] EE NN EE ዘዘ ዘዘ ዘዘ ዘበ ዘዘ. . _ ... ሬ <: 
PRINT “ ፎባ ዘዘ ዘዘ ዘሀ ዘሀ EE ፳፪ 00 ዘዘ ВВ ዘዘ. . . . .. 
RETURN 
PRINT "ЕЗ [el (e) (e El El E] El E E] El El BI B] B] El 

E] E] BI BI BI BI BI Bl"; 

PRINT "а bl a [d a (e) B8 RB BN NE BE Kk)... [3 0 EE HEH BA 

፳፪ ዘዘ ዘዘ LI . ... ሒራ Ca (€ EE ዘዘ ዘዘ EE EE EE ዘሀ 00 Б! 

a x asa ue < EM 3 
PRINT “ ጠባ ዘዘ ዘዘ ዘዘ EE ዘሀ BE EB EE ВИ вао . . 4 „. 
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a 4 a a ГЫ (6 ШЕ ዘሀ RE ዘሀ ዘሀ ዘሀ НЕ EE ва НЕ НЕ BE ር] 
RE RR RE RE ዘዘ ዘር ЕП EE RE BE ЕЕ"; 
411 PRINT “ы. +. ж. a a A A P ж а. ж. ж. a ЙЫ" 
420 RETURN 
300 PRINT " få (e (a መ] [e] (a [a (e [en [a [ሀበ 160111044 5 IF AT = — 1 


THEN PRINT "M El El O" 

510 IF AT = O THEN PRINT " BI ь ci 

530 IF AT = 1 THEN PRINT "BI El El ГЛ" 

535 POKE 54276,0 + POKE 54276,129 + POKE 54273,20 

540 RETURN 

600 PRINT "BB BI E (ед ሆባ (a (a (a (a (a (a (a (a (a (e) (a Гей 
[тетт (A አ. . ሬል [e BE HB NN . El ርባ ፳፪ BEBE . ыу. а" 

605 IF H = 1 THEN PRINT "О O СО BØN te 

610 IF H = - 1 THEN PRINT "OOO МІ 
፳፪ ፳፪ BE La” 

615 IF H = © THEN PRINT "QO BI & 5 BJ c" 

616 POKE 54276,0 ፥ POKE 54276,129 + POKE 54273,40 

620 RETURN | 

700 PRINT "ез [e [e] ወባ [e] [e] [e] [e] ርባ [el (el Сей [e] [e [ሀባ (e (en 
се (el [ей (6 ሀ [e] BI BI EJ El BI El FI El E] BI El El El El El El 
BI BI BI EJ El El BI BI El El El BI BI БІ"; 

710 IF U = — 1 THEN PRINT “ЗЫР, 4" 

720 IF U = 1 THEN PRINT " ESDOWN" 

725 POKE 54276,0 + POKE 54276,33 + POKE 54273,5 

730 RETURN 

1000 POKE 53281,5 + POKE 53280,0 


1005 PRINT “Sl „ a a a „ MAPS" 
1010 PRINT " ሀባ መበ (а EJ El E] El El El El | $ | 14 SS CONTROL 
TOWER. " 
1020 PRINT " El El El BJ El El El FAu3:838:" 
1030 PRINT " E El El BI BI El El izi BH: ІЛ mm RUNWAY" 
1050 PRINT "іш [е] [el መ! [e] [e] [ወ] [e] (61 [el (& [e] [e] [e (e El El El 
El El El El HE [2 “¿STARTING „ POINT" 
( DI / 150 ) Ж 40 * POKE CS + 


5000 POKE 53280,0 : POKE 53281,0 3 PRINT 


" Y [eq [e [а [ወ] [e ES” | 
5010 IF AL > 50 THEN PRINT "YOU , MISSED , THE 


a RUNWAY!" = GOTO 6000 

5020 IF AL < O THEN PRINT " :- YOU a CRASHED ++ " = 
GOTO 6000 

5050 IF H = — 1 AND RND ( 1 ) < .7 THEN PRINT 
"YOUR „LEFT „WING „HIT , THE , RUNWAY!" = 
GOTO 6000 


5040 IF H = 1 AND RND ( 1 ) < .7 THEN PRINT 
"YOUR „RIGHT 4, WING „HIT , THE a RUNWAY!" = 


GOTO 6000 

5050 IF AT = 1 THEN PRINT “ሄቆሃ0በህ , NOSE-DIVED! 8%" +s 
GOTO 6000 

5055 IF AT = — 1 THEN PRINT "X*YOU „ BELLY-FLOPPED 


1%%" : GOTO 6000 

5060 IF SP > 95 THEN PRINT " т q YOU „CAME . IN . TOO 
„FAST! ^ $" = GOTO 6000 

5065 IF U = — 1 THEN PRINT "YOU , DIDN’T a LOWER a YOUR 
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a UNDERCARRIAGE. " 


5070 IFF > 5 OR SP > 90 THEN PRINT "YOU , JUST , MADE 
ІТ!" = GOTO 6005 
5080 IF SP > 70 THEN PRINT "*xA „HARD , LANDING! жж" + 
GOTO 6005 
5090 IF SP > 60 THEN PRINT " Bi HA „GOOD , LANDING 
BE" + GOTO 4005 
5100 PRINT "А THAT „WAS „A „PERFECT , LANDING!" 
5105 POKE 54276,0 + POKE 54276,17 + FOR I = 1 TO 100 
STEP 2 + POKE 54273,1 + NEXT 
5106 POKE 54273,0 
5110 PRINT " M BRILLIANT! BB . SUPER!" = GOTO 6005 
6000 POKE 54296, 15 
6001 POKE 54276,0 = POKE 54276,129 + FOR I = 1 TO 10 
STEP .2 + POKE 54273,1 = NEXT m 
6002 FOR I = 30 TO O STEP — .5 + POKE 54273,1 = NEXT 
6003 FOR I = 1 TO 300 = NEXT = POKE 54273,0 
6005 PRINT “ [e] ሀ ሀ] [e] 00 „ YOU „ WANT „ ANOTHER , GO?" 
6010 GET A$ $ "Y" THEN RUN 
6020 IF AS < > THEN GOTO 4010 
6030 PRINT “ IH BYE." 
6040 END 
CHEXSUM 
A=2A02 25:2557 135-3310 
1-222929 40 = 735 1=5=5051 
2=-529€ 59=213A 137=2624 
2=2233 B5=27EA 13282255865 
c-ITADE SE= 1762 139=153 
=4 128 SA=2 727 146=2416 
ፇ>ፎፎመ=ፎ BS=P353 142-4114 
P= reas ES=1 722 143=727 
‹ጮ>ጋ7ፇሟ= E7=2793 144=2237 
17=55623 73:2030 143=2407 
14=5598 74=527 146=2395 
1328112 75=4753 147=3143 
16=-4179 =я= 1627 148=29397 
17=2 {SE 90=2512 15521846 
12-482 33271375 156=5476 
12-2268 1AaB-aBi3 157=2757 
264-2812 105=811 158-1113 
21-3259 118-177” 161-3333 
er = 2321 1ሯ6 24217 185=606 1 
22-2292 125-2748 1r2=5363 
Ра4-2 1441 130-813 17595-31681 
2-256202 32-1554 176-5700 
20-077 123-783 178=2992 
25=4622 134=4655 1 ያመ==2ፎ!14 
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t) 


ወጠ 


Slalom 


Can you complete the slope? If you can, how many points can you get? 


You gain points for passing through the posts and crash if you hit a tree or 
an ice crack. 


Watch the skier jump for joy if he completes the course or end up, 
upside-down in the snow if he trips on a tree! 


Your controls are: 
2 tilts the skis left 
‘M’ tilts the skis right 


Movement continues in the chosen direction until changed! 
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PROGRAM STRUCTURE 


INITIALIZATION 
Note: 6 clears collision register by PEEKing it 


FINISHED COURSE? 


READ KEY 
If course ending print finish line 


GO LEFT? 

GO RIGHT? 

CHECK FOR LEFT, RIGHT BOUNDARIES 
UPDATE POSITION OF SKIER 

HIT ANYTHING? å 

PRINT AND MOVE TREES 

FINISHED COURSE 

WHAT HAS BEEN HIT? 

SOUND ROUTINE 

PRINT FINISH LINE ROUTINE 

FINISHED ROUTINE WITH JUMPING SKIER 
ANOTHER GAME? 

MISSED FINISH POSTS 


DATA 
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LINES 
0—6 

10 

11 

12 

14 

15— 16 
17— 18 

19 

20— 80 

100 

101 — 108 
200 — 220 
300 — 310 
500 — 540 
550 — 580 
1000 — 1050 
9000 — 10040 


VARIABLES 

D = DIRECTION OF SKIER: 0 = LEFT, 1 = STRAIGHT, 2 = RIGHT 
V = VIDEO CHIP 

SL = LENGTH OF COURSE COVERED 

S = SCORE 

I, О, A, Z = TEMPORARY STORAGE 

X = POSITION OF SKIER (HORIZONTAL) 

PE = KEY PRESSED 

X1 = TREE POSITION 

T = NO. OF TREES 
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SLALOM 


о 


1 


2 


10 


11 
12 
14 
15 
16 
17 
18 
19 
20 
25 
30 


31 


100 
101 


102 


POKE 55,255 + POKE 56,47 + POKE 55281,15 + 
POKE 53280,15 + PRINT “ С" 

D = 1 $ X= 140 + V = 53248 + SL = O 5 S = O 
POKE V + 21,1 

РОКЕ 2040,193 + POKE V + 39,2 + 
FOR I = © TO 318 * READ 9 + 
POKE 12288 + I,0 ፥ NEXT 

POKE 54278,0 + POKE 54276,0 
POKE 54272,0 


4 


POKE 54273,0 + 


POKE 54296,10 + POKE 54278,240 = POKE 54276, 125 


FOR 1 = 12800 TO 12871 < READ A POKE I,A > 


NEXT $ 
POKE 1,0 * NEXT * POKE V,X * POKE V + 1,60 ፥ 
Z = PEEK ( V + 31 ) 
8 = 8 + 1 : SL = SL + 1 * PRINT "ра [6] (a (e (a (ea [e] 
(e) (el (a (а (a (e) [eq (e) [e] [е] (e) (e) (a (e) (a [e] [መ = 
IF SL = 220 THEN 1000 
POKE 54273,0 = PE = PEEK ( 197 ) = 


IF SL = 180 THEN GOSUB 300 
IF PE = 12 AND D > © THEN D = D - 1 ፥ 
POKE 2040,192 + D + POKE 54273,100 
IF РЕ = 36 AND D < 2 THEN D = D + 1 ፥ 
POKE 2040,192 + D = POKE 54273,100 


IF X < 45 THEN D = 1 ፥5 X = 45 = 
POKE 2040,192 + 0 = GOTO 18 

IF X > 239 THEN D = 1 X = 239 £ 
POKE 2040,192 + D * GOTO 18 

X=X + (D- 1) * 5 


POKE V,X 
IF PEEK ( V + 31 ) = 1 THEN 100 


IF RND ( 1) < .7 AND T = O AND SL < 175 THEN 
Т = 1 5 X1 = INT (C RND ( 1 ) $£ 50 ) 
IF PE = 12 OR PE = 36 THEN POKE 54273,0 


IF RND ( 1 ) < .1 AND T = O AND SL < 175 THEN 
PRINT TAB( INT ( RND ( 1 ) 8 30) ) 
;" m iL 88ሰሰለሰሰሰሰፅ m iT" 

IF RND ( 1 ) < .1 AND T = O AND SL < 175 THEN 
PRINT TAB( INT ( RND (1) ж 30) ) 
3" Eu + A A A" + GOTO 10 

IF T = O THEN PRINT ፥ GOTO 10 

IF T = 1 THEN PRINT TAB( X1 ) з" BI Bl oi" + 
Т = 2: GOTO 10 

IF T = 2 THEN PRINT TAB( X1 ) "BI ЩО dor $ 
T = 3 + GOTO 10 

IF Т = 3 THEN PRINT TAB( X1 ) " BJ] i ::2 :" š 
Т = 4 + GOTO 10 

IF T = 4 THEN PRINT TAB( X1 ) "E] FE" + 
T = O + GOTO 10 

IF SL > 197 THEN 500 

IF PEEK ( 1104 + ( - 20 ) / 8 ) = 1 OR 
PEEK ( 1405 + ( X 20 ) / 8) = 1 THEN 
GOTO 20 

IF PEEK ( 1106 + ( X — 20 ) / B) = 1 THEN 
GOTO 20 
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POKE V + 24,28 * FOR I = 12544 TO 12551 


103 IF PEEK ( 1144 + ( X - 20) / 8) = 1 OR 
PEEK ( 1145 + ( X - 20 ) / B ) = 1 THEN 
GOTO 200 

104 IF PEEK ( 1146 + ( X — 200 / 8 ) 
GOTO 200 

105 IF PEEK ( 1064 + ( X - 20) / 8 ) = 1 OR 
PEEK ( 1065 + ( X - 29) ИВ) = 1 THEN 
GOTO 20 

106 IF PEEK ( 1066 + X — 20) / В) = 1 THEN 
GOTO 20 

107 IF PEEK ( 1024 + ( X — 20) / 8 ) = 1 OR 
PEEK ( 1025 + ( X — 20) / 8 ) = 1 THEN 
GOTO 20 

108 IF PEEK ( 1026 + ( X — 20 )/ 8 ) = 1 THEN 
GOTO 200 

110 POKE 54296,15 

115 POKE 2040,196 ፥ FOR I = 60 TO 170 
POKE 54273,175 - I : POKE V + 1,1 = NEXT 

116 POKE 54273,1 

120 POKE 2040,195 

130 FOR I = 1 TO 700 = NEXT = POKE 54273,0 

140 POKE V,O + POKE V + 1,0 : POKE 53280,0 + 
POKE 55281,0 + POKE V + 24,20 

150 PRINT "El НАНЫ a LUCK a YOU' VE „ CRASHED!" 

160 PRINT "(е (eq («1 መ] h YOU „ COMPLETED 4“ 
INT ( SL / 2 i" Z bh... OF a THE" 

170 PRINT "COURSE. KG YOU , SCORED , " 
INT ‹ 8 / 4 ) "POINTS." 

180 GOTO 550 

200 S = 5 * 2 + POKE 54296,15 + POKE 54276,0 + 
POKE 54276,33 + FOR I = 20 TO 50 + 
POKE 54275,1 : NEXT 

210 POKE 54296,15 + POKE 54276,0 + POKE 54276,129 + 
POKE 54273,0 

220 GOTO 20 

300 PRINT " (e) (el El BI BI BI BI BI El Fl BI BI ¿g O 
MOM ІІІСІЗ SCC ЕРЕ = CLEO EL 

310 RETURN 

500 POKE 54275,10 + POKE 2040,193 + 
FOR I = 1 ТО 5 ፥ FOR J = 1 TO 20 STEP 1 + 
FOR Z = 1 TO 20 = NEXT 

510 POKE V + 1,50 + J + NEXT J = FOR J = 20 TO 1 
STEP - 1 + FOR Z = 1 TO 20 = NEXT + 
POKE V + 1,50 + J + NEXT J,I 

515 FOR I = 1 TO 240 STEP 5 = POKE 54275,1 * NEXT : 
POKE 54273,0 

520 POKE V,O + POKE V + 1,0 = POKE 53280,0 
POKE 53281,0 ፥ POKE V + 24,20 

530 PRINT "KI YOU’ VE „ COMPLETED , THE „ COURSE!" 

540 PRINT "(e (el YOU , SCORED. M"; $ 3 
" MI, POINTS." 

550 PRINT " ( [e] m4DO „ YOU „WANT . TO „PLAY „ AGAIN?" 

560 GET AS 5 IF AS = "Y" THEN RUN 


li 


1 THEN 


4b 


4.4 4) 


4» 
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570 

375 

580 
1000 
1010 
1020 
1030 
1040 
1050 
9000 
9010 


9020 
9030 


9040 


9050 
9060 


9070 


9080 
9100 


9110 
9120 
9160 
9170 
9180 


10000 
10010 


10020 
10030 


10040 


IF AS < > "N" THEN 560 

PRINT " [e [4 Bg BYE" 

END 

FOR I = 1 TO 240 + POKE 54275,1 = NEXT = 


POKE 54273,0 + POKE 53280,0 2 POKE 53281,0 


POKE V,O $ POKE V + 1,0 + POKE V + 24,20 + 
PRINT "£2 Вана . HA!" 


PRINT " [€ h YOU , MISSED , THE „FINISH , POST!" 


PRINT “ ሀባ E4BAD , LUCK." 

PRINT " [el #gYDU . SCORED , "3 INT ( S/4 ) 3 " 

GOTO 550 

DATA 0,56,0,0,56,0,0,56,0,0,16,0,0,124 
,0,0,187,0,1,57,0,1,57,0,0,185 

DATA 0,0,165,0,0,36,0,0,68,0,0,66,0,0 
,34,0,0,35,0,0,50,0,0,36,0,0,72,0 

DATA 0,144,0,1,32,0,2,64,0,99 

DATA 0,56,0,0,56,0,0,56,0,0,16,0,0,124 
,0,0,187,0,1,57,0,1,57,0,0,185 

DATA 0,0,165,0,0,36,0,0,68,0,0,66,0 
,0,42,0,0,38,0,0,50,0,0,33,0,0,64,128 

DATA 0,128,64,1,0,0,2,0,0,99 

DATA 0,56,0,0,56,0,0,56,0,0,16,0,0 
,124,0,0,187,0,1,57,0,1,57,0,0, 185 

DATA 0,0, 165,0, 0, 36,0, 0, 468, 0,0, 66,0 
50, 42,0, 0, 38,0,0,98,0,0, 33,0, 0, 16, 128 

DATA 0,8, 44, 0,4, 32,0, 2, 16,99 

DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

DATA 0,0,0,16,0,9,8,0,16,4,0,32,2,0 
,64,1,0,128,0,129,0,2,66,64 

DATA 0,0,0,0,255,0,99 

DATA 2,0,0,1,0,0,0,128,64 

DATA 0,64,128,0,32,0,0,50,0,0,38,0,0 
,42,0,0,66,0,0,68,0,0,36,0,0,165,0 

DATA 0,185,0,1,57,0,1,57,0,0,187,0,0 
,124,0,0,16,0,0,56,0,0,56,0,0,56,0 

DATA 255,255,255,255,255,255,255,255 

DATA 0,0,0,59,255,231,0,0,128, 192, 224 
,240,128,128,128,128,3,3,3,3,3,3,3,3 

DATA 192,192,192,192,192,192,192,192 

DATA 0,0,24,24,60,126,126,255,3,3,7,15 
,31,63,63,127,192,192, 224, 240, 240 

DATA 248, 252, 252, 60, 60, 60, 60, 80, 60, 60, 60 
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a POINTS." 


CHEXSUM 
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Fruit Machine 


А version of the old favourite. It costs you £10 a go and you can win up to 
£ 100. Pull the handle and try your luck! 


The program contains some nice graphics. All instructions are included. 


---- ——————— ---- — 
፡ h -- TT OK: 
ko f 


t 
= — ሙ — 'ቀ -=፦ሦ -———— 
n 


STRAWBERRY 


CHERRY 
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PROGRAM STRUCTURE 
SPRITE INITIALIZATION 
DRAW MACHINE 

GET KEY: CONTINUE OR END 
CALL 'HANDLE DOWN' 

GET 3 RANDOM FRUITS 
POSITION FRUITS 
CALCULATE PRIZE 

DISPLAY FRUITS 

DRAW HANDLE UP 
CALCULATE WALLET 
IFBROKE, CONTINUE OR END 
DRAW 'HANDLE DOWN' 


SPRITE DATA 


VARIABLES 
M— MONEY 


W — PRIZE MONEY FOR CURRENT SPIN 


V = SPRITE POINTER 


R(X) = FRUIT ARRAY (X = 1, 2, or 3) 
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LINES 
1—10 

20— 115 
120 

122 
125 — 140 
141— 142 
160 — 170 
171— 175 
178 — 180 
190 — 200 
210 — 5000 
8000 — 8030 
9000 — 9080 


FRUIT MACHINE 


1 M= SO z W = O 
2 DIM 8 ( 3 ) š V = 53248 + POKE V + 21,7 
3 POKE 2040,13 + POKE 2041,14 + POKE 2042,15 
2 POKE V + 39,2 ፥ POKE V + 40,5 6 POKE V + 41,9 
4 FOR N = О TO 190 * READ Q + POKE 832 + N,Q = NEXT 
5 POKE ህ, 108 : POKE V + 1,100 + POKE V + 2,160 
5 POKE V + 3,100 + POKE V + 4,210 
5 POKE V + 5,100 
10 POKE 55281,0 + POKE 55280,0 
20 PRINT “(2 ESMONEV „ £“ 
30 PRINT " [e] (el zz 


"E Ac 

31 PRINT "ш a a a a < ል. 88 a a a A A a ሒ < A A A A 

32 PRINT " Må a a a < aldo a ሒል a a < ^ A < A A^ A 

33 PRINT "Mo a å a 4 a a [በ4 a a a a .ጠ8 . 2 „ ኢራ [4 A . 
m, .. a a ሒል [14 a ል. BE . 2 ሖ ኢል. [በ4 a a a a" 

34 PRINT "MD å å a a a a [M a nn. ጩ . 2 li A 2 
WE, . ሬ < «a [04 a 4 መ: a a a ld a a a w” 

35 PRINT "Z4 a å a a a all a a a 1,98. 2 „ „ [M a ےہ‎ 
L , . a a ے‎ [4 a . 98 2 . a a [4 a a a a" 

36 FOR I = 1 TO 7 

37 PRINT "ш a å a a a a [11 2 2 à ሔ a 2 a ራ < < < a 

38 NEXT 

39 PRINT “ ЕЗ መ] [e] (a [e] [e] (61 [е] (el BR ሀዘ RE ዘዘ ዘዘ ፳፪ ШЕ ES laa „ 
ዶል „ HE [el ዘዘ RE EB 3 а ኢአ. O ETE „ [€ BB . (е! 
Bi. (2 BE 00 NR GE . . አ. " 

42 PRINT " 59 Е [e] [e] [e] [e] (e) (A [e] (а |6 (e (6 [e] (e) [el [e] (e) (e [ጠበ 
EB ЕН Ed „ EH EH Ed EH . 8. „ ва. „ БЕ ER 

43 PRINT "Hd a å 24 a a. В. EB... Xx 

44 PRINT "EH Hü Ed . EH Hi Hü . . 88 . . EH. 

45 PRINT "EB a å å ^ „ 83 _ BH EB EB EH 
a ШІ. . MACH 

46 PRINT " [88 h. YOU „WIN . +" 

100 PRINT “ке Pl bl El El EJ ብ . . 4 4 4 ВЕ BB BE BE ВЕ": М 

110 PRINT “ (a [e] መባ (el (е) [e] (A (e) (A [A El e] El El El El El El El El 
Blam С” . TO „CARRY „ ON (e Eš ዘዘ ዘዘ ዘዘ ዘዘ ዘዘ ዘዘ ዘዘ BE GR 


EB Hë BE С” . TO . QUIT" 

115 POKE 198,0 

120 GET A$ ፥ IF AS = "Q" THEN 5000 

121 IF A$ < > "C" THEN 120 

122 GOSUB 8000 

125 FOR I = 1 TO 3 

150 8 (I ) = INT RND ( 1) $ 
5 IF RND ( 1 ) < .7 AND R 
THEN 130 

131 IF R ( I ) = š AND RND ( 1 ) < .6 THEN 130 

14O NEXT 

141 IF І = 2 THEN PRINT " E3 (9 [sq ሀ ወ [е] (el El El El 


з + 1 ) 
( I ) = 
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142 


160 


161 


162 


163 


164 


165 


166 


170 
171 
172 
173 
174 
175 
178 


179 


180 


190 
200 
210 
220 
230 
240 
230 
3000 
3010 
8000 


8010 


8020 
8028 
8030 
9000 


9010 
9015 
9020 
9030 


É 
u 
U 
m 
U 
m 


; 

IF I = 3 THEN PRINT ^" Hg (е (а © መ] © ርባ (e) E] E] El El БІ 
BI BI BI BI BI BI FI BI BI El BI El El BI BI El Bl Bl"; 

IF R C 12) = 1ANDR ( 2 ) = 1 ANDR (5 ) = 1 
THEN W = 10 

IFR ( 1 ) = 1ANDR ( 2) = 1 ANDR ( Š ) < > 1 
THEN W = 5 

IF R ( 1 ) = 2 AND 8 ( 2) = 2 AND R (5 ) = 5 
THEN W = 2O 

IF R ( 1 ) < > 2 AND R ( 2 ) = 2 
AND R ( 5) < > 2 THEN W = 15 

IF К ( 1 ) = 5 AND R ( 2 ) = 5 AND R (5 ) = 5 
THEN W = 100 

IF R ( 1 ) = 3 ANDR ( 2 ) = 5 ñND R ( 3 ) < > 5 
THEN W = 50 

IFR ‹ 1 > < > 3 AND R (2) = 3 
AND R (5) < > 3 THEN W = 50 

IF W < > O AND RND ( 1 ) < .8 THEN 125 

POKE V + 21,7 3 FOR Z = 1 TO 5 

IF R ( Z ) = 1 THEN POKE Y + 38 + Z,2 

IF R ( Z ) = 2 THEN POKE V + 38 + 2,5 

IF R ‹ 7 ) = 3 THEN PDKE V + 38 + 7,9 

POKE 2099 + Z,R ‹ Z ) + 12 5 NEXT 

PRINT '' Е (e) (a [e] (a [e] [е] (a [ወባ (e) Y [ወ] [ወ] (A (el 
ES sú ዘዘ Eš EE RE ዘዘ ШЕ ВВ . . . a (OBA . ርባ ፳፪ . On. a 
MM. a a (61 BB ВЕ NN . . „" 

PRINT “ ЕЗ («41 [e] (е [e] [ (ej (en (93 [e BB ШЕ ШЕ 00 ШЕ BE GE ES 154 . 
x a NB (е1 RE NE ፳፪ „ „ O ፪፪ EE ic i3 . (€ | . (е 
፳፪ . Г ፳፪ ፳፪ ዘዘ 88. _ .. „" 

PRINT "få [e] [е (e) [ወ] [e] [e] [e] (e [е] (ей € (61 (ej (ей [еп (ей (el 
[e] [e] (e) (e) O (H) El El El El El PI EJ BI El . . a NE RE BE'W 

M=M — 10 


M =M + W se W= 0 = IF M > O THEN GOTO 100 
PRINT “ EB EJYOUR , BROKE! !" 
PRINT " BØWANT „ ANOTHER „ GAME?" 


GET AS 3 IF AS = "Y" THEN RUN 

IF А% < > "М" THEN 230 

END 

PRINT "K" + PRINT "BYE „BYE , THEN" 
END 


PRINT "ЕЗ መ] [el YA መ] (e) (e (e) (91 (e) ፳፪ BE ፳፪ ፪፪ RE Hš ШЕ. .. 
4 (61 ፳፪ ዘዘ ዘዘ . . . (e) ዘዘ ፳፪ . ርባ | . ርብ ዘዘ . (“1 BA 
(el UN ዘዘ 00 RI š 


PRINT "Б [e] [eg (a (ed (a (a Гей (€ Y (a (ей (e) (e) [e] ፳፪ B8 ፳፪ BE 
BB HE GE GE BE 40.2 ኢ ል ል ВВ. ON. (€ | . (е ፳፪ 
ШЕ ЕЗ а. „ CET ET ET . ." 

POKE V + 21,0 


RETURN 

DATA 0,0,96,0,0,224,0,1,224,0,2,224,0,2,96,0, 
4,32,0,8,0,0,8,0,0,28,0,0,62 

DATA 0,0,127,0,0,255,128,1,255, 192 

DATA 1,255, 192, 1, 255, 192, 1, 255, 192, 0, 255, 128, 0 

DATA 127,0,0, 62,0, 0, 28,0,0,0,0, 99 

DATA 0,1,128,0, 2,0,0,4,0,0, 4,0, 0, 63, 0,0, 255, 
128, 7, 255, 192, 15, 255, 224, 31, 255 
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9040 


9050 


9060 


9070 


9080 


DATA 240,63,255,248,63,255,248,63,255,248,63, 


255,248,31,255,240,31,255,240 


DATA 31,255,192,15,255,192,7,255,128,3,255,0,1, 


255,0,0,60,0,99 


DATA 0,0,0,0,24,0,0,36,0,0,36,0,0,24,0,0,60,0, 
0,127,0,0,255,128,0,255, 128 
DATA 0,255,128,1,255,192,1,255,192,3,255,224,3, 
255,224,7,255,240,7,255,240 
DATA 7,255, 240,15, 255, 248,127,255, 255, 63, 


255, 254, 0, 24,0 
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n 
(Л) 
LO 
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QAPER=4e74 
Se YB=4437 
эсайтатаа 


SPRITE 


BELL 


Sea Harrier 


This is an exciting up-to-date warfare game! 


You are the pilot of a carrier-based aircraft and your mission is to destroy 
an invading submarine using depth charges. 


The enemy submarine must be destroyed in one minute, by dropping a 
depth charge on him, or he will escape to attack your country. When 
dropping your charges you must be careful not to detonate a nuclear 
mine placed by your own forces! The submarine will change depth and 
Speed trying to avoid your assault. 


On the right is you fuel gauge, if it reaches the top you have run out of fuel 
and will crash. To prevent this you can return to your carrier to replenish 
your fuel and launch another attack on the sub. Be careful to land gently 
and not crash. 


Your controls are: ‘Z’ to move up "> to go right 
С to move down ‘space bar’ to drop 
< ” to go left depth charge 
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PROGRAM STRUCTURE 
INITIALIZATION 

DECREMENT FUEL GAUGE 
MOVE SUBMARINE 

MOVE HARRIER — INPUT KEY 
FIRE CHARGE 

IF FIRED MOVE THE CHARGE 
MOVE UP 

MOVE LEFT 

MOVE RIGHT 

MOVE DOWN, CHECK IF HIT SEA 
MOVE DOWN, CHECK IF HIT SHIP 
CHECK TIME 

MOVE CHARGE 

HIT SUBMARINE? 

HIT MINE? 

DESTROYED SUBMARINE 

HIT NUCLEAR MINE 

TIME UP? 

CRASHED INTO SHIP? 
CRASHED INTO SEA? 

START AGAIN? 
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59 

100 

125 

126— 130 
200 — 260 
300 — 360 
400 — 450 
500 — 550 
5000 — 5040 
5050 — 5090 


SPRITE 
SUBMARINE 
SPRITE 
BOMB 
(PLAYER) 


HORIZONTAL, VERTICAL FOR SPRITE £3 (CHARGE) 


HORIZONTAL, VERTICAL FOR SPRITE#1 (SUB) 
TIME LEFT 


HORIZONTAL, VERTICAL FOR SPRITE #0 (HARRIER) 


VIDEO CHIP 
SOUND CHIP 


VARIABLES 

V 

CO 

X, Y 

X1, Y1 

X2, Y2 

TIS 
SPRITE 
HARRIER 
(PLAYER) 
SPRITE 
MINE 
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SEA HARRIER 


O POKE 55, 255 + POKE 56,47 + PRINT " 2" * V 93248 


: CO = 54272 + POKE 55281,0 + POKE 55280,2 
5 F = 10 

1 FOR I = 55816 TO 56296 + POKE 1,6 
+: POKE I - CO,160 * NEXT * 6 = O 


POKE V + 21,63 ፥ POKE 2040,192 + 
2 POKE 2042, 194 : 
POKE 2044,195 ፥ POKE 

2 POKE V + 40,14 = 
2 POKE V + 42,21 
POKE V + 43,7 + POKE V 
FOR I = O TO 318 = 
NEXT : X = 26 
133 + X1 = 29 3 
INT ( RND (1 > 
POKE V + 1,Y + 
POKE V + 3,Y1 
J = O TO 24 * FOR I 
2 POKE I + J ቁ 40,2 £ 
5 NEXT I,J 
POKE V + 5,160 + INT ( RND ( 1 D 860 ) 
+ POKE V + 4, 70 + INT ( RND ( 1 ) ж 180 ) 
PRINT “ Ezj (e) [e] ሀባ [e] (a (al [e] (e [99 (e] (е1 KD [54 [ግ mm (e) Mia. 
a a + MP] ii" +: POKE V + 8,210 = POKE V + 9,55 
+ GOSUB во 
POKE 54296,1 + 
+ TI = 


POKE 2041,193 
POKE 2043,195 + POKE V + 44,7 
2045,196 + POKE V + 39,1 
POKE V 4 41,0 


+ 29,18 + 
READ Q + 


POKE V + 23,16 
POKE 12288 + I,Q 


= 


160 
) * POKE V,X 
+: POKE V + 2,X1 


Y1 = 
X 60 
= 1 


D 


+ «+ ተ | + o 


99330 TO 55335 
POKE I + J $ 40 — CO,160 


үч 


POKE 54278,240 + 

"000000" 

PRINT "ЕЗ (eq (е1 (e БЕ ዘዘ SR БЕ BR BA lag TIME" 

PRINT "Ез [eq (el (e) ЕЕ Bl 14 "5 RIGHTS ( ТІ%,2 > 
+: POKE 55652 + INT ( F ) ж 40,4 

Xi + D $ 2 5 IF X1 > 240 
THEN D = INT ( RND 1 ) £ 3 - 3 
5 Yi = 160 + INT ( RND ( 1 ) X 60 

IF XI < 28 THEN D = INT ( RND ( 1 ) 
5 VI = 160 + INT ( RND ( 1 ) * 60 

POKE V + 2,X1 * POKE V + 3,Y1 

PE = PEEK ( 197 ) 

IF PE = 60 AND X > 60 AND X2 
5 Y2= Y - 8B * 61 = Оз F 
2 POKE 53273,200 

IF X2 > O THEN GOSUB 100 

IF F < 1 THEN 53 

IF PE < > 12 AND PE < > 20 AND PE 
AND PE < > 44 THEN POKE 54272,0 
2 GOTO 56 


POKE 54276,129 


11 


12 Xi 


3 ) 
= ) 


) 
ዌ 5 + 1) 
) 


O THEN X2 
F те . 1 


< > 47 
+ POKE 54275,0 


POKE 54273,108 + 
IF PE Y 
X 
X 
F 


.06 5 I 


POKE 54272,223 
> 50 THEN Y 
> 28 THEN X 
< 250 THEN X 
PE 20 THEN 


= 


Y + 6 = GOTO 5 
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6 


IF Y > 140 THEN 5000 


57 IF X > 25 AND X < 59 AND Y > 133 AND G > 1.3 
THEN 500 
58 IF X > 25 AND X < 59 AND Y > 133 THEN 6 = O 
* F = 10 5 Y = 133 5 GOSUB 80 
99 POKE V,X = POKE V + 1,Y * IF TIS = "000100" 
THEN 400 
60 GOTO 11 
ВО PRINT " EE [ed መ] (a (ей (el [1 [e] [ሀ [ወ] Eš BE BE ፳፪ A 154: : [ed 88: 


85 RETURN 
100 X2 = X2 + .5 $ IF Y2 > 140 THEN Y2 = Y2 + G1 / 2 
102 IF Y2 < 141 THEN Y2 = Y2 + 61 
105 IF G1 = O THEN POKE 54272,0 + POKE 54273,40 
106 G1 = 61 + .3 
110 POKE V + 7,Y2 
112 POKE V + 6,X2 
120 IF Y2 > 230 THEN Ү2 = O + X2 = O s POKE V + 7,0 
5 61 = O 
125 IF PEEK ( V + 30 ) 
126 IF PEEK ( V + 30 ) 
130 RETURN 
200 POKE V + 2,0 + POKE V + 3,0 = POKE V + 10,X1 
5 POKE V + 11,Y1 5 POKE 54296,15 
210 FOR I = 70 TO 10 STEP - .3 = POKE 54275,1 + NEXT 
5 POKE 54273,0 + POKE 54272,0 
220 FOR I = 1 TO 11 + POKE V + 1,0 = NEXT 
230 POKE V 4 10,0 ፥ POKE V + 11,0 
2 PRINT " (2 [el [el 14 YOU’ VE , DESTROYED , THE 


10 THEN 200 
12 THEN 300 


240 PRINT "ІШ GWELL , DONE!" 

250 PRINT " ጩ HM YOUR , TIME „WAS . "5 RIGHTS ( TI$,2 ) 
5" . SECONDS" | А 

260 GOTO 5050 

300 FOR I = 1 TO 11 5 POKE V + 1,0 = NEXT 
5 POKE V + 29,32 + POKE V + 23,32 

510 POKE V + 2,0 + POKE V + 3,0 s POKE V + 10,X2 
5 POKE V + 11,Y2 + POKE 54296,15 
5 POKE 53281,8 

320 FOR I = 90 TO O STEP - .2 + POKE 54275,1 
+ POKE 53280,1 / 10 + NEXT + POKE 54273,0 
+ POKE 54272,0 

325 POKE 53280,0 + POKE 53281,0 3 POKE V + 29,0 
5 POKE V + 23,0 

330 POKE V + 10,0 + POKE V 4 11,0 
2 PRINT " CA ሀባ (е ІЗІ YOU’ VE „HIT 4 THE 


350 PRINT " ርባ AA YOU , LASTED „FOR 4, "3 RIGHT$ ( ТІ%,2 ) 
s' a SECONDS. ” 

360 GOTO 5050 

400 POKE 54296,15 + POKE 54276,0 + POKE 54276,33 

410 FOR I = 255 TO O STEP — 2 = POKE 34273,1 * NEXT 
+ POKE 54273,0 3 POKE 54272,0 

420 FOR I = 0 TO 11 * POKE V + 1,0 5 NEXT 
5 POKE 53280,0 + POKE 53281,0 
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PRINT " £2 [e [el 134 YOU" VE „КОМ 4 QUT „OF a TIME!" 
PRINT "LZ (el ወ ES THE , SUB „WILL „GO „ON „та 
a DESTROY , YOUR. å a a a a COUNTRY!!! 1!" 
PRINT “ ጩ (e) ወ EG YOU „ BUNGLING 4 FOOL!!! ' ' !" 
GOTO 5050 
POKE V,O + POKE V + 1,0 + POKE V + 10,X 
* POKE V + 11,Y + POKE 54296,15 
FOR I = 70 TO 20 STEP - .2 + POKE 54275,1 
5 NEXT : POKE 54273,0 : POKE 54272,0 
FOR I = 1 TO 11 + POKE V + 1,0 £ NEXT 
POKE V + 10.0 = POKE V + 11,0 s PRINT " CA [eq [el 124 ХОП" VE 


PRINT “(4 መ TOUGH 4, LUCK!" 
GOTO 5050 
POKE V,O * POKE V + 1,0 * POKE V + 10,X 
+ POKE V + 11,Y * POKE 54296,15 
FOR I = 80 TO 30 STEP — .2 г: POKE 54273, 1 
+ NEXT + POKE 54275,0 + POKE 54272,0 
FOR I = 1 TO 11 * POKE V + 1,0 * NEXT 
POKE V + 10,0 = POKE V + 11,0 = PRINT "р መ] [e] a YOU" VE 


PRINT " መ] (9 GHHARD _ LINES." 

PRINT “ЕЗ [e] መ] [eq [e] [e] [e] [መ] (A (e [ወ] [e] (e) (el (€) ъ DO „ YOU 
a WANT , ANOTHER , 607?" 

GET AS + IF A$ = "Y" THEN RUN 


IF ñ$ < > "N" THEN 5060 
PRINT " [m መ BYE . BYE. 
END 


DATA 0,0,0,0,0,0,192,0,0,192,0,0,240,0,0, 
252,3,0,255,255,192,255,255,252 

DATA 63,255,255,63,255,240,31,240,0,63,252,0, 
63,0,0,0,0,0,0,0,0,0,0,0,0,0 

DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,99 

DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,56,0,0,56,0,0, 124, 
0,5, 255, 192, 127, 255 ` 

DATA 252,255,255,255,255,255,252,15,255,224,0, 
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

DATA 0,0,0,0,0,0,0,0,99 

DATA 0,0,0,0,0,0,0,,0,0,0,0,4,8,16,2,8,32,1,8, 
64,0,136,128,0,127,0,0,127,0 

DATA 7,255,240,0,127,0,0,127,0,0,136,128,1,8, 
64,2,8,32,4,8 

DATA 14,0,0,0,0,0,0,0,0,0,0,0,0,99 | 

DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,28,0,0,62,0,0,127,0,0 

DATA 127,0,0,127,0,0,62,0,0,28,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0,0,0,0,0 

DATA 99,128,0,32,18,1,8,233,0,4,99,63,1,48, 
84,32,19,8,1,89,109,22 

DATA 8,12,38,0,52,149,128,243,211,99,63,0,128, 
72,1,19,8,0,89,2,22 

DATA 99,0,2,18,76,149,2,64,1,99,4,7,91,16,0, 
19,8,54,1,109, 22 
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Cats 8 Dogs 


It's raining cats and dogs! You have to catch suicidal cats and dogs but if 
you don't they die. For every third miss, a cross will appear, but you are 
only allowed three crosses. 


Controls are: ‘Z’ to move your animal lover to the left and 'M' to move 
him/her right. 
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PROGRAM STRUCTURE 
INITIALIZATION 


CHECK ANIMALS AND MOVEMENT USING 


KEYS PRESSED 
CAUGHT ANYTHING? YES: SCORE 
NOISE 
MOVE MAN 
NOISE 
IF THIS ANIMAL NOT ON SCREEN 
PUT ONE ON (12% CHANCE) 
ELSE MOVE HIM DOWN 
IF HIT GROUND 
PICTURE 
SOUND 
IF 3 HIT: TUNE AND CROSS 
ELSE IF CAUGHT 
NOISE 
SCORE AND PICTURE 
NEXT ANIMAL 
DO ALL AGAIN 
TUNE AND CROSS FOR HIT ANIMALS 
IF 3 DEAD 
TUNE AND MESSAGES 
DATA 
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LINES 
0—9 


11— 14 


15 

20 — 22 
25 — 30 

60 

65 

66 — 69 
70 — 85 

86 

90 

91— 92 

93 

94 

95 — 97 

98 — 100 
105 — 110 
120 

1000 — 1040 
1050 
2000 — 2110 


8000 — 9045 


VARIABLES 

LL = LIVES LOST 

Р = YOUR POSITION 

L = ARRAY POSITION OF ANIMALS 
SP = ARRAY WHETHER CAT OR DOG 
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CATS AND DOGS 


OL = 1 : POKE 55,255 = POKE 56,27 = V = 53248 
5 FOR I = 1 TO 54 * READ R = NEXT 

1 PRINT "€2" + POKE V + 32,3 = POKE V + 33,1 
+ FOR I = 12544 TO 12551 = POKE 1,0 + NEXT 
5 POKE V + 24,28 

2 POKE 54296,10 = POKE 54276,0 3 POKE 54278, 240 
+ FOR I = 12288 TO 12407 = READ R + POKE I,R 
* NEXT 


3 POKE 54290,0 : POKE 54292,240 
4 P = 11 + DML (3) ,SP (3) : FOR I = 1 TO 3 
51 (I) =O: SP ( I ) = О ፥ NEXT 
5 S = 0: SC = 1024 s CO = 54272 : СБ = 55296 
6 PRINT 
"З (а (а (a (a (a (a (61 (e) (a [ሠ] (a (a [a [ወ] [ወ] [e] 154 НТ (ей 
EB BE BE BAJ lA KM [e] EE SENN [9] EE EEN" 
* FOR I = 1824 TO 2023 
7 POKE I + CO,2 + POKE 1,4 * NEXT = POKE 198,0 
POKE V + 33,0 s POKE V + 32, RND (1 ) š% 16 
2 IF AS = "" THEN 8 


10 FOR I = 1 TO 3 
12 P1 =P 5 M = PEEK ( 197 ) 
5 IF M < > 12 AND M < > 36 THEN 50 
13 Pl = P1 + ( M = 36) $ ( Pi < 38 ) - ( M = 12) 
£ (P1 > 1 ) + IF Pi = P THEN 50 
14 PE = PEEK ( 1744 + P1 ) 
$ IF PE > 5 AND PE < 32 THEN 50 
15 PE = PEEK ( 1784 + P1 ) 
2 IF PE < > 32 THEN DS = S / 2 
5 IF 8 < 60 THEN S = 8 € 2 : GOTO 60 
20 POKE 54277,0 + POKE 54286,240 + POKE 54276,0 
5 POKE 54273,40 + POKE 54272,200 
21 POKE 54276,129 + POKE 54290,0 
22 POKE 54291,0 ፥ POKE 54292,240 + POKE 54287,57 
+ POKE 54286,172 + POKE 54290,17 
25 POKE 1744 + P,32 + POKE 1784 + P,32 
s POKE 1704 + P,32 
SO POKE 1744 + P1 + CO,3 $ POKE 1744 + P1,0 
5 POKE 1784 + Рі + CO,3 + POKE 1784 + P1,1 
50 P = P1 
60 POKE 54273,0 + POKE 54272,0 + POKE 54287,0 
5 POKE 54286,0 
65 IF L ( I ) < > О THEN 70 
66 IF RND ( 1 ) > .12 THEN 110 
67 L ( I ) = 1146 + INT ( RND ( 1 ) £ 36 ) 
+: POKE 54277,0 + POKE 54286,240 + POKE 54276,0 
: POKE 54276,129 
68 POKE 54273, 72 + FOR J = 254 TO 235 STEP - .5 
* POKE 54272,J + NEXT + POKE 54272,0 
s POKE 54273,0 


69 SP (I > = INT (RND (1) ¥ 2) 
70 11 = L € J) 

89 11 = [1 + 40 

85 PE = PEEK ( L1 + 40 ) 
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86 IF PE < > 4 AND PE < > 5 THEN 95 

90 POKE Li + 40,4 = POKE L1 + ር0,4 + SP СТ) 
+ POKE 11,5 $ POKE L ( I ) „12 

91 POKE 54277,0 : POKE 54286,240 + POKE 54276,0 
5 POKE 54276,129 + POKE 54273, 34 

92 FOR J = 150 TO 135 STEP - 1 + POKE 54272,J 
5 NEXT + POKE 54272,0 + LL = LL + 1 

93 POKE L ( I) ,32 š L (I) = O 
5 IF LL = 3 THEN 1000 

94 GOTO 110 

95 IF PE < > O AND PEEK ( L1 ) < > O THEN 100 

96 POKE L ( I ) ,7 + POKE 54296,10 : POKE 54291,0 
+: POKE 54290,0 + POKE 54292,240 
* POKE 54290,33 

97 POKE 54287,64 + POKE 54286,188 ፥ FOR 3 = 1 TO 50 
5 NEXT ፥ POKE 54287,0 ፥ POKE 54286,0 

98 POKE L (1),32:L(1)=0 
5 S= (5+ (LL +10) ) + (28 LL) 
5 GOTO 110 

100 POKE L ( I ) ,32 + POKE Li + CO,4 + SP (I > 
5 POKE 11,2 + SP ( I) 

105 L CI) = Li 


110 NEXT 
120 GOTO 10 
1000 L L + 1 5 POKE 54287,0 = POKE 54276,0 


: POKE 54283,0 : POKE 54272,0 + RESTORE 
+: POKE 54296,15 
1010 PRINT "EQ"; TAB( 18 + ( 4 ) ) s'F' 
: POKE 54276,0 : POKE 54290,0 = POKE 54292,0 
5 POKE 54278,0 
1015 POKE V + 32,0 + POKE 54291,9 = POKE 54277,96 
1020 FOR Z = 1 TO 18 + READ A,B,LE * Bi = B t 2 + 1 
5 A1 = R € 2 ТЕ ВІ > 255 THEN Al = Al + 1 
5 Bi = B1 - 257 
1025 POKE 54287,A : POKE 54286,B * POKE 54273,A1 
2 POKE 54272,B1 + POKE 54290,17 
1030 POKE 54276,33 + FOR K = 1 TO LE + NEXT 
+s POKE 54275,0 + POKE 54272,0 + POKE 54287,0 
1035 POKE 54286,0 : POKE 54290,0 : POKE 54276,0 
5 NEXT Z 
1040 POKE V + 32,6 5 LL = © 5 POKE 54278, 240 
: POKE 54292,240 + POKE 54277,0 + POKE 54291,0 
1050 POKE 54296,10 5 IF L < 4 THEN 94 
2000 POKE V + 32,0 + POKE V + 24,20 * PRINT "Ka" 
2010 PRINT " HARD , LUCK" 
2020 PRINT " [e] YOU. SCORED"S"POINTS" 
2030 PRINT " [el (ANOTHER , GAME?" 
2040 PRINT "ЖОН . WAS . THE „ LAST „ONE , TOO 4 TOUGH" 
2070 GET AS + IF AS = "Y" THEN RUN 
2080 IF A$ < > "N" THEN 2070 
2090 PRINT " [BYE . BYE „ THEN." 
2100 PRINT " h. YOUR , COMPUTER „ IS"; 
2110 END 
8000 DATA 34,75,400,0,0,40,34,75,300,0,0,40,34,75, 
100,34,75,400,0,0,40 
8010 DATA 40,200,300,38,126,100,0,0,40,38,126,300,34, 
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8020 
9000 


9010 


9015 
9020 


9025 
9030 


9040 


9050 


75,100,0,0,40,34,75,300 
DATA 0,0,40,34,75,100,0,0,40,34,75,500 


DATA 0,0,129,129,185, 184, 146, 124, 56, 56, 56, 40,68, 
68, 68, 198 


DATA 4,7,4,56,112,208,72,72,14,14,4,14,31, 142, 


110,60 


DATA 255, 255, 255, 255, 255, 255, 255, 255 


DATA 0,0, 28, 60, 254, 255, 255, 255, 24, 24, 255, 255, 24, 
24, 24, 24 


DATA 0,73, 42,0,99,0, 42, 75 
DATA 0,0,3,13,25,62,96,192,56,232,28,28,62,62, 


127,8 


DATA 28,22,59,56,124,124,254,16,0,0,192,176,152, 
124,6,3 


DATA 0,0,0,0,146,68,1,82,128,128,128,128,128,128, 
128,128,1,1,1,1,1,1,1,1 


CHEXSUM 
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Horse Racing 


Bet on the horses without losing anything. The game begins with the 


names of the four horses displayed against their odds. You must choose 


a horse and place your bet. 


Program contains full instructions. 
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PROGRAM STRUCTURE LINES 


INITIALIZATION 1—9 
DISPLAY PLAYER'S FINANCE 20 — 21, 500 
GENERATE ODDS 11 

DISPLAY ODDS 25 — 36 
PROMPTING FOR BETS 20 

SETUP RACE DISPLAY 100 — 120 
RUN THE RACE 130 — 140 
DISPLAY RESULTS 205 — 5040 
DATA FOR 'SPRITE' CHARACTERS 9000 — 9050 
VARIABLES 


M = PLAYER'S MONEY 

OD() = ODDS OF EACH HORSE 
B = PLAYER'S BET 

Н = HORSE CHOSEN 

H() = POSITION OF EACH HORSE 
Z = DELAY LOOP VARIABLE 

HN = WINNING HORSE 
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HORSE 


100 


101 
102 
103 


105 


106 


RACING 


REM $ A DAY AT THE RACES $ 
М = 100 + CO = 54272 + POKE 53280,0 
* POKE 53281,0 
FOR N = O TO 126 + READ Q = POKE 832 + N,Q 
* NEXT N 
V = 53248 + POKE V + 21,15 + POKE 2040,13 
+ POKE 2041,13 + POKE 2042,13 : POKE 2043,13 
POKE Y + 39,2 + POKE V + 40,3 + POKE V + 41,4 
+ POKE V + 42,5 
POKE 54296,15 + POKE 54277,64 + POKE 54278,128 
+ POKE 54276,129 + POKE 54275,0 
POKE 54272,0 
PRINT “іі. . . 4 ሬ a à a a a a ай „DAY „AT 
a THE „ RACES" 
FOR I = 1 TO 4 5 OD ( I ) = INT ( RND ( 1 ) 
¥ 10 + 1 ) + NEXT = 
PRINT “ ሀበ መ ፪፳ሃ0ህ „ HAVE 4 £"; Mi "LEFT." 
IF M = O THEN 500 | 
PRINT " በ [€] ЖШ НОКБЕ 2 å å å a ኢሬ å à ል ሬ ል 4 
PRINT "ы ы Ed Ed 53 kal 533 53 шы Ы 5:3 kas] Ed kd Kos) kd ы 
Ыыыы" 
PRINT "|4 1201. „ BARED a DEVIL a a à El 
300 ‹ 1 ) š"/1" 
PRINT “ ሀበ (92. „ k THE 4 BLUE „ MAX 4 a ("50D (2 
5/1" 
PRINT " ሀ0 (93. „ MPINK „LADY a a 4 a „ Im" 
500 (3) 3/1" 
PRINT “ ሀበ 144. „ GAGREEN , GOBLIN. a I4";0D (4) 
51. 
PRINT " [e] [e] а. „ BET „ HOW „ MUCH" 
INPUT B + IF B > M THEN PRINT "OD å ኢሬ a å a a a 
a + ሖ OOOO" + GOTO 40 
PRINT " [MON „ WHICH 4 HORSE a (1,2,3,4)" 
INPUT H * IF H < 1 OR H > 4 THEN PRINT “O, . 
a a a a a a 000" + GOTO 60 


ኑ 
» 


GET ñ$ * IF A$ = "" THEN 90 
PRINT "EZ" + POKE 53281,5 + POKE 53280,8 


5 FOR I = 55496 TO 56135 + POKE 1,0 
5 POKE I - CO,160 

NEXT 

FOR 1 = 55456 TO 55495 + POKE 1,1 
5 POKE I - CO,35 * NEXT 

FOR I = 56136 TO 56175 = POKE 1,0 
+: POKE I - C0,143 + NEXT 

PRINT " E3 [е] ወበ [el (e) (e) (e) ሀዘ BB ሀዘ ዘዘ ва GU ва GE BE SE 154 „ m 
፳፪ . (e) | .. (€) BE . (el | . (el BE . (еп HEF (e) BEI (е BEN (en 
ВВТ 1 HES (€ ван (61 ВЕ . [0 HN .. ሀባ | . (e BE . Се GA" 

PRINT " E3 [el [e] O ሀበ (e) ም] =4 _ ሀ юй. (е1 BA _ (el BE . (e) BA 
a [e BB . ዘ] BES (€) ዘዘ መ SEA (21 BER (EJ BET (e BE (e ዘዘ .. 
[( RE . [el BB . ር | . [e ВЕ" 

H (1) = 20 5 ዘ (2 ) = 20 5 H ( 5 ነ = 20 

5 H ( 4) = 20 +: LE = 1 
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120 


125 
126 
130 
131 


132 


133 
155 


156 
140 
200 
205 


206 
210 
220 
230 
240 
245 
250 
260 
300 
310 
315 
320 
350 
360 
570 
580 
390 
500 
905 
910 
3000 
5010 
2020 
5030 
3040 
9000 


9010 


9020 


9030 


9040 


FOR I = O TO 3 + POKE V + I 2,H (I + 1 ) 
+ POKE V + I X 2,90 + ( I 8 55) = NEXT 

IF LE = 1 THEN LE = O = GOTO 130 

IF LE = O THEN LE = 1 

FOR I = O TO 3 

POKE 2040 + 1,13 + LE * IF LE = O 
THEN POKE 54273,2 + PDKE 54272,37 

IF RND ( ) < .45 ОК (OD (I + 1 ) < 5 
AND RND (1) < .4 ) THEN H ( I ) 
=H (I + 1 ) + INT ( RND (1)) ) 
5 GOTO 135 

ዘ ( 1፲ + 1 ) = ዘ ( 1 + 1 ) +1 

POKE V + I 2,H (I + 1 ) * POKE V + 1 + I 
* 2,90 + ( I 8 35 ) z IF LE = 0 
THEN POKE 54273,0 + POKE 54272,0 

IF ዘ C I + 1 ) > 240 THEN 200 


H li 


+ 1 
x 5 


NEXT * GOTO 125 

FOR Z = 1 TO 500 + NEXT 

POKE 53281,0 : POKE 55280,0 + PRINT "CM" 
5 FOR Z = O TO 3 + POKE V + Z X 2,0 + NEXT 


* HN = I + 1 
GDSUB 5000 
PRINT " , WINS.” 
PRINT " [MYOU „BET LON „"; + HN = H + GOSUB 5000 
IF I + 1 < > H THEN 300 
PRINT " . TOO!” 
ሽሻ = የ1 + OD ( 1 + 1 ) $ B 
PRINT " БО , YOU? VE „WON 4, z"30D ( Ізі) $ B 
GOTO 30 
PRINT = PRINT " EAYOU’ VE „LOST A +"; В 
PRINT " (el BABAD . LUCK!" 
M =M - В 
IF M < 1 THEN FOR I = 1 TO 3000 * NEXT ፥ GOTO 10 
PRINT "DO „ YOU „WANT , ТО „PLAY „ AGAIN?" 
GET А% ሩ IF A$ = "Y" THEN 10 


IF A$ < > "N" THEN 560 

PRINT “| (M (@JBYE „ BYE!" 

END 

PRINT " 2በነ0ህ” КЕ a BROKE!" 

M = 100 

GOTO 350 

IF HN = 1 THEN PRINT " EARED „ DEVIL"; 

IF HN = 2 THEN PRINT “ Ka THE , BLUE , МАХ"; 
IF HN = 3 THEN PRINT " THE „PINK a LADY"; 
IF HN = 4 THEN PRINT *ENGREEN „ GOBLIN"; 
RETURN 


DATA 0,14,0,0,14,20,0,12,28,0,28,26,0,31, 
63,0,28,255,0,28,247,0,127,227,3 

DATA 255,224,7,255,224,15,255,224,25,255,224, 
25,255,224,57,216,112,49,222 

DATA 112,97,192,48,97,192,48,225,128,96,3, 
128,96,3,0,224,7,0,224,99 

DATA 0,14,0,0,14,20,0,12, 28,0, 28, 26,0, 31,63,0, 
28, 255, 0, 28, 247, 0, 127, 227,53 

DATA 255, 224, 7, 255, 224, 15, 255, 224, 25, 255, 224, 25, 
255, 224,57, 216, 112, 49, 222 
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9050 DATA 112,97,192,48,97,192,48,48.192,96,3, 
128,192,3,1,128,0,0,0 


CHEXSUM 
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Luna Landa 


This is one for all you budding young astronauts. The surface of the moon 
is looming closer, and you must control the horizontal and vertical 
velocities of your module to achieve a feather-light landing. 


Keep an eye on your fuel gauge at the bottom of the screen, don't run out 
of fuel. The more difficult the landing site the more points you get for a 
successful mission, each perfect landing increases the difficulty of the 
next. Be careful not to damage your module by landing too hard. 


Controls are: 
'C' move right 
‘Z move left 
‘F3’ Va power thrust 
5' 1⁄2 power thrust 
'F7' full power thrust 
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PROGRAM STRUCTURE 
INITIALIZATION 
(SET GRAVITY, VELOCITIES (HORIZONTAL 
AND VERTICAL) LINE 35) 
INITIALIZE LUNAR MODULE 
AFFECT MODULE WITH GRAVITY 


CONTINUE HORIZONTAL 8 VERTICAL MOTION 
INPUT KEY 


CHANGE HORIZONTAL VELOCITY IF COR 2 
CHANGE VERTICAL VERLOCITY IF THRUST 
CHECK LANDING ON PAD 1 Y? THEN 1000 
CHECK LANDING ON PAD 2 Y? THEN 1000 
CHECK LANDING ON PAD 3 Y? THEN 1000 
CHECK FOR CRASH 
IF CRASHED, EXPLODE 
ASK FOR NEW GAME 
YES? THEN 160 
END 
REDRAW LANDSCAPE, REINITIALIZE 
VELOCITIES, POSITIONS, ETC 
GO TO MAIN BODY 
LANDED SAFELY? N? THEN 120 
GIVE SCORE FOR SAFE LANDING 
INCREASE DIFFICULTY FOR NEXT TIME 


DATA 
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LINE 


1-- 35 


44 
50— 80 
85 


87 
88 — 92 
100 

105 

110 

115 
120— 130 
135 

140 

150 

160— 180 


1000 — 1010 


1000 — 10080 


VERTICAL VELOCITY 
HORIZONTAL VELOCITY 
NO. OF SAFE LANDINGS 


Y POSITION 
KEYBOARD PORT 


KEY PRESSED 


ADDRESS OF VIDEO CHIP 
FUEL 


GRAVITY 


VARIABLES 
М = 

G = 

VV 

HV 

NO 

X1 = X POSITION 
Y1 

K = 

K = 

FU 


SPRITE 
UEL 
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LUNA LANDA 


1 


5 


10 


15 


20 


25 


30 


55 


40 


42 


43 


44 


45 


50 


55 


57 


60 


65 


70 


75 


80 


85 


87 


88 


POKE 55,255 5 POKE 56,47 + V = 53248 
+ FOR I = 12544 TO 12551 + POKE 1,0 + NEXT 
FOR I = О TO 103 * READ A = POKE 12 * 1024 + I,A 
+ NEXT 
FOR I = 852 TO B94 * READ A = POKE I,ñ = NEXT 
+ POKE 2040,13 + POKE V + 24,28 
ż POKE V + 39,15 ፥ NO = 1 
POKE V + 33,0 2 POKE V + 32,0 + FU = 1000 
* SC = O 
PRINT " CZ la መ] መ] መ] (e) ሀመ (a (е OGG (e BC Пр (ен (e) BB. ген 
(е1 ፳፪) ወ HAI (Ге! BAK ወ ዘዘ ВЕЕ (€ ዘዘ BE BADA (е! ЕЕ ፳፪ 
BEE Ге BE BRE ወበ BED (BID (20 (eDLLLK ርን BEI"; 
PRINT “ፒን ВЕЈ O ШЕН (7 ME DE (IDA ME OKO ВЕТ СОК O BAI 
OLLLK O BEI O BED O ЕЕ BED O HA CJE OK O 
REI [JF (ер GG (OH (е) BAJ OH fe) 887"; 
PRINT “ መ RAI መ ВЕК [e ШЕН መ ዘዘጋ (MH (e BAJ ፡ባ ШШЕ (е ዘዘ ESE 
[e] BEH [99 BAJ (BID [4 BCLLLLEBC (ВС (Яр; 


B = .040875 + W = 0 + HV = „5 += POKE V,2 
5 POKE V + 1,29 + POKE V + 16,0 
5 POKE V + 21,1 * KB = 197 * X = 2 
FOR I = O TO 190 + READ A $ POKE 13 % 1024 + I,A 


NEXT I 

FOR I = 896 ТО 958 + 
5 IF INT C ( I + 1) 
THEN POKE I,12B 

NEXT 

POKE V + 3,232 + POKE V 
OR 2 : POKE 2041,14 + 
5 A = PEEK ( V + 31 ) 

PRINT " Е (9 (ей [e] [e] (a [a [ወ] (a (a [e] [e] (a [е] [ወ] (e) [ወበ [ወባ [a [e 
መ] (el ሠ] ሀባ El El El El El El El El El El ESLLLLLLLLLLLLLL"; 

VV = W + 6 + POKE V + / 10 + 96 
5 IF VV > 4 THEN VV = 

А = PEEK ( V + 1 ) * А = А + WV 5 IF A > 230 
THEN ñ = 230 

IF А < 29 THEN А = 29 

POKE V + 1,A + В = PEEK ( V + 16 ) AND 1 

А = X + HV 5 IF А > 255 AND B = O 
THEN POKE V + 16, PEEK ( V + 16 ) OR 1 + B = 1 
5፡ ñ = O 

IF A < O AND B THEN POKE V + 16, PEEK ( V + 16 ) 
AND 254 * B = 0 £ A= 255 

IF ñ < O THEN POKE V + 16, PEEK ( V + 16 ) OR 1 
: B = 1 5 A= 87 

IF А > 87 AND B THEN POKE V + 16, PEEK ( V + 16 ) 
AND 254 ፥ B = O + а = O 


POKE 1,0 
/ 5) t 5 = 1 


+ 21, РЕЕК ( V + 21 ) 
POKE V + 40,2 


El 
2,FU 
4 


POKE V,A 5 X = A + K = PEEK (KB) + IF FU < 1 
ТНЕМ К = О 
HV = HV + ( K = 20) ¥ CHV < á ) ¥ 21 - 


( ኮር = 12 ) Ж (HV > — 4 ) Mk „1 * FU = FU + 
(K= 20) + (CK = 12) 
IF (FU < 5 AND K = 6) OR (FU < 4 AND K = 5) 


90 VV = VV + ( K = 5 ) ¥ .0625 + ( K = 6)  .125 
+ ( K = 5 ) $ .25 

92 FU = የህ + ( K = 5 ) + ( K = 6) #5 + CK = 3) 
* 5 


+ 


95 Y1 = PEEK ( V 1) 5 Хі = PEEK ( V) 

B = PEEK ( V + 16 ) AND 1 

100 IF Yi = 228 AND Xi > = 63 AND X1 < = 67 
THEN LA = 1 = GOTO 1000 

105 IF Y1 = 132 AND X1 > = 143 AND X1 < = 147 
THEN LA = 2 GOTO 1000 

110 IF vi = 204 AND Xi > = 7 AND X1 < = 13 AND B 
THEN LA = 3 = GOTO 1000 

115 A = PEEK ( V + 31 ) AND 1 = IF ñ < > 1 THEN 50 

120 FOR 1 = 208 TO 210.9 STEP .025 + POKE 2040, 1 
5 NEXT = FOR I = 210.5 TO 209 STEP - .05 

125 POKE 2040,1 * NEXT * POKE V + 21,0 

130 FOR I = 1 TO 5000 = NEXT г PRINT " 1" 
5 POKE V + 21,0 + POKE V + 24,20 
5 PRINT ~ መ! [e] (al Eg YOU „ CRASHED'" 

135 PRINT "(а [se] (ed ¿ss SCORE "5 SC 
5 PRINT ” [e] (e) (e) ĦĦANOTHER . GAME?" 


“í 


140 GET AS 3 IF AS = "Y" THEN 160 
145 IF ñ$ < > "N" THEN 140 
150 END 


160 FU = 1000 5 SC = O 5 POKE 2040, 13 
5 POKE V + 24, 28 

165 PRINT “* K2 134 (4 © © መ (а መ (A (e3GG (БС (MD (ен (e) BAJ [JH 
(e ВЕ መ] ЕНІ (A ВЕК (0 БЕ SEE (=) ዘዘ ዘ፪ BEDA [€ пи ፳፪ 
BRE (е BB GRE (©) ВЕРО (200 መዐ [SIDLLLK ርን ШІ"; 

170 PRINT "0O BMJ O ВЕН © ШШЕ CJE 09 DE OK O IB I OKO BAI 
OLLLK O BEI ГІ BED O ВЕ BED O ВЕЗА DE OK O 
ВЕІ OF DGG (ен ©) BAJ OH (e вв)"; 

175 PRINT “መ BEI መ BIK መ ШЕН (90 ШЕ (OH (ел ЕВ.) [N ШШЕ (61 ШЕ BEE 
መ] BEH ርቢ REJ OID (m BCLLLLEBC (БС MD"; 


180 WV = 0 5 HV = .5 * POKE V,2 * POKE V + 1,29 
5 POKE V + 16,0 = POKE V + 21,1 = X = 2 
5 GOTO 44 


1000 IF WV > 5 OR ABS ( HV ) > .4 THEN 120 

1005 SC = SC + (4 — LA) ¥ 50 + FOR I = 1 TO 5000 

5 МО = NO + 1 

1010 POKE V,2 $ POKE V + 1,29 + POKE V + 16,0 
5 POKE V + 21,1 = КВ = 197 + X = 2 
5 HV = NO 8 .5 + GOTO 44 

10000 DATA 0,0,0,5,10,16,96,128,1,5,8,144,96,0,0,0, 
128,64,64,80,105,6,0,0 

10005 DATA 0,0,0,0,132,74,49,1,128,64,48,8,4,4,6,1, 
1,1,2,10,20,16,32,192 

10010 DATA 0,0,8,20,36,66,65,129,0,0,0,0,4,42,209, 
129,128,64,64,32,16,16,8,8 

10015 DATA 1,1,2,4,2,2,4,8,4,2,2,4,2,2,1,1,8,14, 
32,32,32,64,64,128 

10020 DATA 0,0,0,0,0,0,0,255 

10025 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
8,0,1,255,0,1,141,0,3,167,0,0 

10030 DATA 132,0,0,239,0,0,169,0,0,255,0,7,131, 
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10035 
10050 


10055 


10060 


10065 


10070 


10075 


10080 


192,10,130,160,10,130,160,31 
DATA 255,240,16,56,16, 32, 124,8,112,0,28 
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 


CHEXSUM 


5 3 

0,0,0,0, 6, 0,0,0,0, 8,0,0,8,0,0 

DATA 20,0,34,0,0,20,0,0,8,0,0,8,0,0,0,0,0,0, 
0,0,0,0,0, 0,0,0,0,0,0,99 

DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0 ,0,0,0, 0,8,0,0,54,0,0,193 

DATA 128, 1,0,64,6,0,48,1,0,64,0,193,128,0,54 
0,0,8,0,0,0,0,0,0,0,0,0,0,0,0 

DATA 0,99,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
0,0,0,0,0,0,0,0,0,0,0,28,0,0 

DATA 227, 128, 15,0, 120, 112,0,7,15,0,120,0,227 
128,0,28,0,0,0,0,0,0,0,0,0,0 

DATA 0,0, 0,0,0, 0 
1=2492 118=3743 tenyra=4121 
5=2፡3:24ዓ ISSA] pup ECH PS 
128-1629 19Ø=3765 1=26ነ222=6ፎ2ሯ 
15724493 125=1339 

se ግ ey jam-4842 ሰር መሙ аве 

2372367 125=2795 

=ሮ=4ፎ፳ደ7 1ай- 1 QE 

= 5451 14551185 
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Simon 


Simon plays a series of tones incrementing the number each time. You 
must repeat the sequence. The screen displays the numbers 1 — 6 and 
one of these will light up to correspond with the tones played. Each time 
Simon repeats a sequence he adds a note and plays the 'tune' faster. 
You win by repeating his tune until it is eight notes long. Use the keys 1 — 
6 to reproduce the tones and lights. 


Remember, this game tests your speed as well as your memory and you 
only have a limited amount of time to react! 


PROGRAM STRUCTURE LINES 
INITIALIZATION 0—3 
DRAW SIMON, CAPTION: CALL 'DRAW LIGHTS' 4—9 


CALL INTRO' DIMENSION NOTE ARRAY 10 

PLAY NOTE AND ENTER INTO ARRAY: 20— 25 
CALL ‘LIGHT KEY’ 

CLEAR NOTE: CALL ‘LIGHT KEY’ 30 — 35 

PROMPT FOR KEY INPUT 40 

GET KEY (IF ANY) FROM QUEUE AT END OF 45 — 50 
DELAY 

WRONG KEY, CALL 'END' 55 


COMPARE WITH ARRAY, IF WRONG CALL'END' 56 — 80 


PRINT CONGRATULATIONS AND GET KEY 90 — 99 
TO RESTART 

PRINT LIGHTS ONTO SCREEN 100 — 190 

CHANGE COLOUR OF SELECTED LIGHT 200 — 270 


TURN OFF SOUNDS AND GET KEY TORESTART 500—560 


PLACE CAPTIONS IN BUBBLE AND DELAY 5000 — 5140 

DELAY AND CLEAR CAPTION 6000 — 6030 

DATA FOR SIMON 9000 — 9050 
VARIABLES 


V — POINTER FOR SPRITE HANDLING 

N(X) = NOTE ARRAY 

| = POINTER TO LAST NOTE PLAYED (I = —1, INTRO CAPTIONS IN 
PROGRESS) 

A — PLAYER'S INPUT 
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SIMON 


А 


O ሀ) N ው ርባ ቁ 


92 
95 
98 


99 
100 


110 


120 


PRINT * KA' + POKE 53281,1 + POKE 55280,4 + 
POKE 54296,15 + POKE 54276,0 : POKE 54276, 17 
POKE 54277,0 + POKE 54278,240 + POKE 54273,0 + 
V = 53248 + POKE V + 21,3 + POKE 2040,13 
POKE 2041,14 + POKE V + 39,0 + POKE V + 40,5 + 
POKE V + 28,2 + POKE V + 38,0 + 
FOR I = O TO 126 * READ 9 
POKE 832 + I,0 + NEXT + POKE V,140 + 
POKE Y + 2,140 ፥ POKE V + 1,61 * POKE V + 3,82 


PRINT "  ግ2መ.ሬዜ።ኢር ፡  ጨ ኤጨጨኤ  ኤ 
PRINT "Ffa ሬ w a a aa a «a 1: - 
PRINT i il PN bh ልቶ ል A å å аж å a а“ 
PRINT ":1 a a a x a A x a x x E: 


PRINT "ы id Ф . ቀ „ФФ... Ф. ቀ . ቀ 
ሔ ቅቆ . ቅቆ . ቀቅ . ቀቅ © . ቅ . ቀ .. ቅ . ቅ .ፅ ቀ 
a © 4" s БОБОВ 100 

GOSUB 5000 * DIM N ( 8 ) 

FOR I = 1 ТОВ: N ( I ) = 
INT ( RND C 12 # 6) + 1 + FOR J = 1 TO I + 
POKE 54276,17 

POKE 54273,N ( J ) 8 20 $ PRINT "EXA" + 
GOSUB 200 

FOR X = 1 TO 400 - I % 30 + NEXT + POKE 54273,0 

PRINT "k." + GOSUB 200 

FOR X = 1 TO 200 - I ¥ 20 + NEXT X,J + PRINT 
" e] [e] መ El l . REPEAT (M ЕЕ ዘዘ ዘዘ BN BE THE (21 ዘዘ ፳፪ HEH 
NOTES " 

FOR J = 1 TO I + POKE 54276,0 + POKE 54276,33 + 
POKE 198,0 + FOR X = 1 TO 250 - I ¥ 20 

GET A$ * IF VAL ( AS ) > O AND VAL (A$?) < 7 
THEN 55 

NEXT X * GOTO 500 

GOSUB 4000 

IF VAL (АФ ә < > N ( J ) THEN 500 

POKE 54273, VAL ( AS ) 8 20 + PRINT "ЕА" + 
GOSUB 200 

FOR X = 1 TO 500 - I ¥ 50 * NEXT + POKE 54275,0 
5 PRINT "M" ፥ GOSUB 200 

FOR X = 1 TO 1500 - I 8 80 = NEXT J + 
FOR X = 1 TO 400 = NEXT X,I 

GOSUB 4000 = PRINT " E3 [e] ጩ El ፻፳ „ YOU ርባ ዘዘ ዘዘ ፳፪ 


b 
4 


a WIN! !” 

GOSUB 6000 + PRINT " 4 [e] (2 a PLAY መ ዘዘ ዘዘ UN 
BEAGAIN?" 

GET AS ሩ IF A$ = "Y" THEN 20 


IF A$ < > "N" THEN GOTO 92 

GOSUB 6000 + PRINT " & [a (n ወ El . mBYE'" 

END 

PRINT “ 58 (eq [ሀበ [e] [0 (a 
^ a . I" ERE El E] El 

PRINT "ва E El . 1 „ . B] El El El El El E] Fl Б] Ei 
El EN da 4 a a Ы 

PRINT "BEI El El [q iW... EP ወገ BI El El E] E 


U 
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El El El El El El е SIS „ „ mp" 

130 PRINT "(e ወበ EJ El El [53 PF]. a . N El El EL 6] EI EI 
EI EI El EI EEE. . „ ГЕ" 

140 PRINT "еее. .2. a EJ El 6) 5] BI BI BI BI BI БІ 
NE. x d ж.” 

150 PRINT “BIBI BI Mi... "B P) E] El BI BI BI БІ БІ 
EJ] E] PI PIRIN i al a . MP)" 

160 PRINT " (8 (8 EJ E 2 14 PM. . . N E BI BI BI BI BI E 
ае PIi PIRIN „ . „ Mm" 

170 PRINT "BEI .5. å El EI El El kl El bI El El 
EI EI EFI. .6. „" 

180 PRINT "а El EI OQ uS, . „ шө BI BI BI BI BI E El 
El El El EI ы _ „ „ шар" 

1?O RETURN 

200 PRINT "BØN ሀባ መ] (a ወባ [e] [e] ሀባ E El BI"; = 
IF N ( J > 3 THEN PRINT 
"BE Pi BI ሁኑ] Pl El BI BI El BI BI El El El Pl БІ"; 

210 IF N C J ) = 1 THEN PRINT "АР. „ . Геге GB 
RE ፳፪ ዘዘ ዘዘ . .1. a (e) BH EE ዘዘ ፳፪ ዘዘ መ ሟ (53 
a a м NEPI" 

220 IF N C J ) = 2 THEN PRINT " መ] (a [e] (e) [e] 152 
Ph. . ል ГЕП ዘሀ ዘዘ ዘዘ ዘዘ ВВ . .2. „ Г21 RR ዘዘ HE HU 
mm... mp" 

230 IF N ( J ) = 3 THEN PRINT “(е [eq Гей [e] [e] (a (е (e 
teg (61 IPI 2. . ል ГЕ ዘዘ ፳፪ ፳፪ ዘዘ ዘ፪ .ኘ. „5. Ce 
RE HB | መ AR , . „ шр" 

240 IF N (CJ ) = 4 THEN PRINT "li RP). å Mile ፳፪ 
EB ዘዘ ፳፪ ዘዘ . 24 _ a 19) ፳፪ ዘዘ ዘዘ RE BA "S DW (54 
a a a mm 

250 IF N ( J ) = 5 THEN PRINT " ወባ መ! [el (e (em [54 
п. ል „ГД ዘዘ RE ፳፪ ВВ ВВ . „5 „ . ርባ ፳፪ BB EB 18 
EQ. . . MW 

260 IF N C J ) = ይ THEN PRINT “ ወባ ta (a [e] (a (a [e] [a 
MENN. . PC RE BE ዘዘ ዘዘ ВВ . . ኝጮ. „ [e Bg ዘዘ BR 
RE | R [q 3 . „ . "pp" 

270 RETURN 

500 POKE 54276,0 = POKE 54276,33 

510 FOR I = 20 TO 1 STEP - .2 + POKE 54273,1 + NEXT 


520 POKE 54275,0 
525 GOSUB 6000 
530 PRINT ' እ [e [а EABAD a LUCK." 
535 PRINT “БІРІ АҮ" 
540 PRINT " EJAGAIN?" 
545 GET ñ$ 5 IF AS = "Y" THEN POKE 54276,0 + 
POKE 54276,17 = GOSUB 6000 5 GOTO 20 
550 IF ñ$ < > "N" THEN GOTO 545 
555 GOSUB 6000 = PRINT " 53 [e [e] [el im BYE! መባ [e] [e] 
[e] [e] fey“ 
960 END 
5000 I = ፦ 1 = PRINT " ES ( (O RI ES „HI , I" M" 
9005 PRINT " a CALLED" 
9010 PRINT " a SIMON" 
9020 GOSUB 6000 
5025 PRINT ” E መ! ወ] a WANT , TO" 
5050 PRINT " a PLAY „ MY" 
9035 PRINT “ a a GAME?" 


5036 
5037 
5038 
5040 
3045 
5030 
9055 
3060 
5065 
5070 
5075 
3080 
5083 
5090 
5095 
3100 
5105 
9110 
9115 
3120 
5125 
3130 
5135 
9140 
9500 
5502 
9505 
9510 
6000 


6005 
6010 
6020 
6025 
6030 
9000 
9010 
9020 
9030 
9040 


9050 


GET A$ = IF A$ < > "М" AND A$ < > "Y" THEN 
IF ñ$ "N" THEN 5500 

IF А% = "Y" THEN GOSUB 6000 

PRINT " E3 [e (a መ REPEAT" 

PRINT "El a å « THE" 

PRINT " EJSEQUENCE" 

GOSUB 6000 

PRINT “ EJ (wi (ei KIOF , LIGHTS" 
PRINT "BI a å AND,” 

PRINT " a SOUNDS. " 

GOSUB 6000 

PRINT * (1 [e] RITHERE' S" 

PRINT “ BIMORE , EACH" 

PRINT * a a TIME.” 

GOSUB 6000 

PRINT ' መ] [el M YOU , MUST" 

PRINT " a BE „ VERY" 

PRINT “ a a QUICK!" 

GOSUB 6000 

PRINT "ЕЗ (8 [а a a STAND" 
PRINT "Bl. å „ВХ“ 

GOSUB 6000 

GOSUB 6000 

RETURN 

GOSUB 6000 

PRINT " EJ (em [e] Ка BYE . BYE" 

PRINT “BIE „ THEN! ' ርበ [e] [e] [a (а [e]" 
END 

IF I = — 1 THEN FOR Z = 1 TO 2000 : NEXT = 


2056 


POKE 54276,0 > POKE 54276,55 г“ POKE 54275,50 


PRINT ы > [e] (m ж a ሔ ж a ሔ ሔ + a " 
PRINT d a ሔሕ ^h. + dk. ж ж a a " 


PRINT ” ж ж ay ^h. ж A ж 4h. a ü 
IF I = — 1 THEN POKE 54273,0 
RETURN 


DATA 0,0,0,0,255,128,1,255,192,3,255 
,224,2,0,32,2,0,32,2,54,32,2,99,32 

DATA 2,99,32,14,193,184,10,8,40,10,8 
,40,8,24,8,8,193,136,8,99,8,8,28,8 

DATA 4,0,16,4,0,16,7,128,240 
,5,255,208,2,231,32,99 

DATA 2, 255, 128, 10, 190, 160, 42, 255, 168 
, 170, 255, 170, 174, 235, 186, 174, 235, 186 

DATA 174, 235, 186, 174, 235, 186, 44, 170, 184 
, 43, 170, 232, 10, 235, 160, 10, 235, 160 

DATA 10,190, 160, 10,195, 160, 3, 60, 192, 3 
,255,192,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
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SPRITE 


SIMON'S 


Racer 


This is a Grand Prix simulation with a different twist. 

You have anticipated your win and celebrated before the race, as a result 
you are drunk and end up driving the race in the wrong direction. 
Instructions are contained within the program which allows you to select 
different levels of speed and skill. 


Watch out for oil slicks! 
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PROGRAM STURCTURE 
INITIALIZE SPRITE 
PRINT LINE OF TRACK ETC 
GET KEY PRESSED 
MOVE CARS 
SOMETHING IN ROAD? 
CRASH ELSE NEXT LINE 
CRASH SPIN OUT 
THREE CRASHES? 

END, ELSE START AGAIN 
DATA 


VARIABLES 

SP = SPEED 

LA = NO. OFLAPS 

OS = OBSTACLE (OTHER) 
C = OBSTACLE (CAR) 

SK = SKILL LEVEL 


Р = POSITION OF OBSTACLE 


L = NO. OF CRASHES 
X = YOUR POSITION 
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LINES 


0—9 
10—54 

100 

110— 130 
140 
200 — 240 
500 — 580 
1000 

1000 — 1050 
9000 — 9120 


RACER 


10 


GOSUB 2000 + POKE 55,255 + POKE 56,48 + 
V = 53248 

POKE 53281,5 + POKE 53280,7 + 
POKE V + 22, PEEK ( V + 22 ) OR 16 + 
PRINT " С" 

POKE 55265, 151 + FOR I = © TO 111 + READ A + 
POKE 12 $ 1024 + I,A + NEXT + POKE У + 24, 28 

POKE 54276,0 + POKE 54296,4 + POKE 54277, 152 + 
POKE 54278, 240 + POKE 54272,18 + POKE 54275,1 

POKE 54276, 129 

L = O + 1А = O 5 X = 150 2 POKE V + 34,4 + 
POKE Y + 35,7 

FOR I = © TO 62 + READ А = POKE 832 + 
NEXT + POKE 2040,13 5 POKE V + 39,7 
POKE Y + 37,6 

POKE V + 38,2 + POKE V + 28,1 + POKE V,X + 
POKE V + 1,100 + POKE V + 21,1 

FOR I = 12544 TO 12551 + POKE 1,0 + NEXT 

PRINT "Ej"; ፥ FOR I = 1 TO 25 


I,A + 


" El El BI BI El FI BI BI BI El (31 Pl ኮ] El El El El El 
Ej BI RII" =: NEXT + A = PEEK ( V + 31 D) 
LA = LA + .02 * PRINT " E3 (ed [e] (e) [ዞባ [ባበ [e] (e) [a [e] 
[el (eq (e) (ወገ (e) [e] [e] (a (e) (a (e) (a (a (e (a El El El El El 
El El €] El El (31 BI BI E] El EJ El BI BI El ኮ] El БІ" 
IF SP > 1 THEN FOR I = 1 TO SP $ 20 = NEXT 
PRINT “ЕЗ ГО E ወባ [a መባ [е] € (e) (е (ет [eq (ей [e] (en [eT 
[e] (e) (a (el (a [e] (e ( (2 El El El El El PI F] El BI EJ"; 
IF OS > O THEN 21 


IF ር > 0 THEN 51 

IF INT С RND ( 1 ) ¥ 10 + 1 ) < 7 + SK THEN 100 
IF RND ( 1 ) < .95 THEN 50 

OS = 1 Р = INT ( RND ( 1 ) 11 + 1 D 


IF OS = 1 THEN PRINT SPC( P ) "ЈК" > OS = 2 è 
GOTO 25 
IF OS = 2 THEN PRINT SPC( P ) s'LM'5 = OS = O 


IF C = О THEN 100 

С = 1 5 Р = INT ( RND ( 1 ) ቄ 10 + 1 ) 

IF C = 1 THEN PRINT SPC( P) 3"DAB"3 * C = 2 & 
GOTO 100 


IF C = 2 THEN PRINT SPC( P ) 5"CDE"3 * C = 3 $ 
GOTO 100 
IF С = 3 THEN PRINT SPC’ P ) 3"FGH"3 = C = Q 


PE = PEEK ( 197 ) 


IF PE = 12 THEN X = X — 4 

IF PE = 36 THEN X = X + 4 

IF PE = 12 OR PE = 36 THEN POKE V,X = 
POKE V + 1,100 

IF PEEK ( V + 31 ) = 1 THEN 500 


IF LA < 12 - ( SK ፄ 2 ) THEN GOTO 10 

POKE V,O + POKE 54275,0 + POKE 54272,0 

POKE V + 24,20 + PRINT " СД WELL . DONE!!! ! " 
PRINT "M [el [el па YOU” VE „ COMPLETED . THE „ GAME!" 
PRINT "(4 m CRASHES: "5L 

GOTO 1020 
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500 
503 
505 
508 
915 
520 
525 
550 
540 
550 
560 
570 
575 


578 
580 
1000 


1002 
1005 
1006 


1007 
1010 
1015 


1020 
1030 
1040 
1050 
2000 
2005 
2010 


2020 


2030 
2040 


2050 
2060 
2070 
2080 


2090 
2100 
2105 


2110 
2120 
2130 
2140 
2150 
2160 
2170 


D = ፦ 1 + IF RND ‹ 1) < 26 THEN D = 1 
POKE 54272,137 = POKE 54273,43 

FOR I = 100 TO 200 
POKE 55280,I / 10 

X = X + (D 84) 

IF X < 118 THEN D 

IF X > 185 THEN D 

POKE V,X 3 POKE V 

NEXT 


e | = 


1 
„I 


+ H H 


POKE V,X $ POKE V + 1,100 


F L = 3 THEN 1000 
ОКЕ V + 31,0 $ PRINT "£2" + OS = 0 + C = 0 : 
POKE 53280,7 
POKE 54272,18 + POKE 54273,1 
GOTO 9 
POKE V,O = POKE V + 24,20 + 


Х = 1 > 
L =L + 1 
I 
P 


POKE 54272,43 5 POKE 54273,137 

POKE 54272,0 + POKE 54273,0 5 POKE 54278,0 

POKE 54296,15 = POKE 54277,236 + POKE 54278,236 
+ POKE 54276,129 

POKE 54275,7 5 POKE 54272,55 

PRINT " £x» [8 (YOU . CRASHED , THREE , TIMES!" 

FOR I = 1 TO 700 * NEXT = POKE 54278,0 + 
POKE 54272,0 = POKE 54273,0 

PRINT “ (e) መ (9 «иа WANT a ANOTHER „ GO?" 


GET A$ + IF A$ = "Y" THEN RUN 
IF ñ$ < > "N" THEN 1030 
END 


POKE 53281,0 

PRINT “ 53 IMROAD „ RACER! '" 

PRINT "(ml KA „ GAME „OF „SKILL. „ DODGE 
a THE a CARS „AND „ a ኢሬ a „COMPLETE , FIFTEEN 
a LAPS." 

PRINT "(Øl [YOU . HAVE . BEEN „ DRINKING , TOO „ MUCH 
a BEFORE . a THE , RACE „ AND . YOU „ ARE" 

PRINT "DRIVING , THE . WRONG . WAY!" 

PRINT " መ] а ESAND „ТЕ . THATS „МОТ , ENOUGH , YOU 
4 CAN’T 4 STOP!" 

PRINT “ (@JCONTROLS a ARE: " 

PRINT " [e] mZ- ЕРТ" 

PRINT "(e пам- BARIGHT ' 

PRINT "(&IDON'T , CRASH , INTO , THE , SIDE „OF , THE 
4 ROAD!" 

PRINT “ (e) 1 #gPRESS „A a KEY" 

GET A$ + IF A$ = "" THEN 2100 

PRINT " ፎጋ 4 >>>>>>>>>>>>>>>> 
KA OPTIONS IN<<<<<<<<<<<<<<< <<" 

PRINT “ ርበ ESSPEED2?(1 „FAST a- . 5 a SLOW)" 

GET At 

IF VAL ( A$ ) < 1 OR VAL ( AS ) > 5 THEN 2120 

SP = VAL ( A$ ) 

PRINT ” [el ESSKILL , LEVEL?(1 . HARD . ፦ . 5 4 EASY)" 

GET ñ$ 

IF VAL ( A$ ) < 1 OR VAL ( A$ ) > 3 THEN 2160 
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2180 
2190 
2200 
2210 
2220 
2230 
7000 


7010 
9020 
9030 
9040 
7050 
9060 
9100 


9110 


9120 


SK = VAL с A$ ) 
PRINT “ ሀባ ወባ 24G00D . LUCK" 
PRINT "(e (e) ЖРКЕЗ5 „A a KEY" 


GET AS 


IF A$ = "" 


RETURN 


5 IF Sk = 


2210 


1 THEN Sk = 1.5 


DATA 0,0,4,7,15,7,4,0,48,48,252,255,255 
‚ 255, 236, 236, 0, 0,64,64, 192,64,64,0 
DATA 0,0,0,79, 127,127, 255, 79, 236, 252, 204 
‚ 5, 255, 255, 255, 255, 0,0,0, 196, 244, 244 
DATA 252,196,64,79,15,63,0,0,0,0,48 
, 255, 171, 285, 0,0,0,0 
DATA 4, 196, 192, 240,0,0,0,0 
DATA 126,126,126,126,60,60,60,60 
DATA ,3,15,14,14,58,234,58,0,0,192 
,192,192,192,252,172 
DATA 14,14,58,58,236,243,3,0,171,188 
,240,192,176,176,176,192 
DATA 63,255,240,15,171,192,79,255,196 
564,48, 4,79, 255, 196, 255, 255, 252, 127, 255 
DATA 244,127,255, 244, 79, 3, 196,0, 204 
29,0, 252, 0,0, 236, 0,0, 234, 0, 4, 234, 64,7 
DATA 255, 64,15, 255, 192, 7, 255, 64, 4 


„, 252, 64,0, 48,0,0, 48,0,0,0,0 
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yx «979 тт 


MORDE 


Cosmic Bugs 


In this game creatures attempt to get from the top of the screen to the 
bottom where they turn into Crabs which close in on you. 


You defend yourself with a blaster that can fire nets or energy blasts. 
Nets trap the creatures and earn you double points, energy blasts kill 
them but sometimes only split them in which case you only get half 
points. If the screen turns yellow you must prepare to move your blaster 
as it moves up the screen to the top, once successfully at the top the 
game will resume in a new play area. 


The creatures are: 

Scorpions — These are red and worth 10 points for a kill. 

Spikers — These are green and worth 20 points, or 30 when they leave 
a spike behind. 

Cutters — These are blue and can free other creatures from nets. They 
are worth 40 points and cannot be netted themselves. 
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Crabs — These are other creatures who have reached the bottom. 
Your only method of killing them is to use the super-zapper, 
(space bar) this uses 25 points. The screen is grey when you 


have enough points. The first time it is used it kills all life, 
otherwise only crabs. 


Controls : 
7” blaster left 
'C' blaster right 
‘>’ fire nets 
‘<’ fire energy blaster 
‘Space bar’ super-zapper 
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PROGRAM STRUCTURE 
INITIALIZATION 


SET VARIABLES: SC, LI, P, NE, N, S, 
SZ, RE, BO, TO INITIAL VALUES 


PRINT “FUNNEL”GRAPHICS 
GET KEY PRESSED — LEFT OR RIGHT? 


MOVE LEFT OR RIGHT DEPENDING ON 
KEY PRESSED 


DETERMINE MOVEMENT/ACTIONS OF DIFFERENT 


ALIEN TYPES 
TEST FOR CRAB CAPTURED BLASTER 
ACTION FOR CUTTERS 
ACTION FOR SPIKERS 
ACTION FOR SCORPIONS 
CRABS LANDED!?! 
FIRING A МЕТ, FIRING AN ENERGY BLAST 
TRAPPED OR HIT AN ALIEN? 
MOVE BLASTER UP TO NEW GAME 
SPACE BAR HIT TO DESTROY CRABS 
BLASTER DESTROYED 
PLAY AGAIN/HIGH SCORE 
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LINES 

0 — 10 

20 

25 — 40 

50 

52 — 55 

80 

85 

100— 112 
115 — 130 
135 — 165 
170 — 195 
601 — 615 
615 — 700 
707 — 725 
805 — 820 
1000 — 1020 
1030 — 1055 


VARIABLES 

SC = SCORE 

HI = HIGH SCORE 

P(0 — 4) = CONTAINS POSITIONS OF ‘BUGS’ 
T(0 — 4) = CONTAINS TYPE OF ‘BUGS’ 
P = POSITION OF BLASTER 

PC = POSITION OF CRAB 

L = ‘MOVE LEFT’ 

R = ‘MOVE RIGHT’ 

NE = ‘NET’ 

TIS = TIME 

PO = POSITION OF INDIVIDUAL BUG 
CA = ALIEN COUNT 

KB = KEYBOARD KEY 

K = CHARACTER KEY PRESSED 

PE = TEMPORARY 

CL = CLASS 

NE = NET POSITION 

| = VARIABLE 

J = VARIABLE 

J1 = VARIABLE 

V = VIDEO CHIP START ADDRESS 
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COSMIC BUGS 


1 POKE 55,255 + POKE 56,47 + V = 53248 ፥ 
POKE V + 33,0 5 POKE V + 32,0 + POKE 54296,15 


5 DIMP (4 ን ‚Т ( 4) = FOR I = O TO 4 = 
T ( 1 ) = O 5 NEXT = CO = 54272 КВ = 197 = 
LS = 1024 3 CA = O 

7 PC = 11 5 L = 12 5 R = 20 HI = Q = 
FOR I = 12544 TO 12552 + POKE 1,0 = NEXT 


10 FOR I = 12288 TO 12415 + READ A * POKE I,A + 
5 POKE V + 24,28 
5 LI = 5 + Р = 2004 + NE = 20 
5 85 = — 1 = SZ = O 5 RE = O = BO 
25 PRINT "lat "3 * FOR I = 1 TO 24 
PRINT "1 йд"; = NEXT = PRINT ” EJ (m sm" = 
FOR I = 1 TO 23 = PRINT " [el BEA"; 
30 NEXT = POKE 56295,1 + POKE 2025,1 + PRINT 
"Е [e] [е (el El El BI El BI BID ርፎ) ሠ [ን (AD [e] D (ер 
(e) D [eq D («10 ወባ D 9D [ED (e) ፳፪" ን 
35 PRINT “ር (el BB NEC (€ BB BEC (ec BB ዘሀ ዘዘ BE EE ЕЕВЕВЕС 
^ A ሒል x a x a 4 a a DBEEB Г2 BB BE EE EE BE BED CI 
EB SED BA BED | C [JC OC CIC MC CJC"; 
40 PRINT “OICOICOCOICOCOC"s 5 TIS = "000000" + 
POKE 54278, 52 = POKE 54277,0 + POKE 54276,0 
45 POKE 54276,17 
SO FOR I = О ТО 4 5 K = PEEK ( KB ) 5 IF K <> L 
AND K <> R THEN 60 


5 N = — 1 
о 


db ll 


) - ( K = R) 
< > 32 THEN P 


Hoe 


60 POKE P + CO,7 : POKE P,PC 
65 IF T 1 ) > O THEN 80 
70 IF RND ( 1 ) < .9 THEN 600 
72 P ( I › = ІМТ LS + RND (1) t 40) 
75 T C ) = INT (RND ( 1) # 2 + 1) 2 
IF RND 1 ) < CA / 6 THEN T ( 12 = 4 
80 ON T ( I ) GOTO 85,100,115,135,170,185,185, 185 
85 CL = 2 * CH = 12 + 
0 = INT C RND ( 1 ) & 
PO = ( I) + D + PE 
IF PE = PC THEN 1000 
86 IF PE = 5 THEN PE = 32 
87 IF PE = 7 THEN Т ( I) = 6 + POKE P ( I ) ,32 ż 
Р ( 1 ) = РО + СА = СА + 1 + SC = SC + 20 + 
GOTO 185 
88 IF PE < > 32 AND RND ( 1 ) > .5 THEN 
D = INT ( RND (1) $ 3-1) + 


5 ፦ 1 ) + 40 £ 
= PEEK ( PO) + 


WM 


PO = P (I) + D = PE PEEK (PO ) = GOTO 87 
90 IF PE < > 32 THEN D = 0 GOTO 500 
93 IF PO > 1983 THEN 130 
97 GOTO 500 
100 CL = 5 5 CH = 13 + 
D = INT C RND ( 1 ) Ж Š — 1 ) + 40 + 
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101 
102 


103 


105 
110 
111 
112 
115 


116 


117 
120 
125 


130 


135 


136 
140 
145 


150 
152 
153 
155 
160 


165 
170 


175 


180 
182 
185 


PO =P (I) + D - PE = PEEK (РО) = 
IF PE = PC THEN 1000 
IF PE = 5 THEN PE = 32 
IF РЕ = 7 THEN Т ( I ) = 7 = POKE Р ( I ) ,32 = 
CA = CA + 1 P 1 ) = PO + SC = SC + 40 = 
GOTO 185 
IF PE < > 32 AND RND ( 1 ) > .5 THEN 
D = INT C RND (1) * 3-1) + 
PO = P (I) + D = РЕ = PEEK (РО) = 
GOTO 102 
IF PE < > 32 THEN D = 0 = GOTO 500 
IF PO > 1983 THEN 130 
IF RND ( 1) > .9 AND D > O THEN T (I) $ 
GOTO 500 
POKE P (I) „5 5 CL = 5 + CH= 15 * D = 40 + 
PO = (I ә) + D PE = PEEK (РО) = 


IF PE = PC THEN 1000 

IF РЕ = 7 THEN T ( I) = 8 + POKE Р CI) ,32 + 
P (CI ) = PO ғ CA = CA + 1 + SC = SC + 60 + 
GOTO 185 

IF PE = 5 THEN PE = 32 

IF PE < > 32 THEN T ( 1) = O = GOTO 600 

IF PO < 1984 THEN Р (I ) = P ( I ) + D + 
GOTO 505 

T ( Т) = 5 = POKE P ( I) ,32 > 
P ( I) =P ( I + D 5 POKE P ( 1 ) + CO,10 


) 
‚15 5 GOTO 600 
1 


) 


8 5 — 1) + 402 
РО =P (I) + D ғ РЕ = 


PEEK (PO > = 


IF PE — PC THEN 1000 

IF PE — 5 THEN PE — 32 

IF PE < > 8 THEN 153 

FOR J = О TO 4: IF P ( J ) = PO AND 
T (J ) >5 THINT CJ ን) = TCI) - 5 ° 
D =O 5 J = 4 - CA = CA ፦ 1 + NE = NE +i 


NEXT J 5 GOTO 500 
IF PE < > 32 AND RND ( 1 ) > „5 THEN 
D = INT (RND (1) 8 5-1 ) $ 
PO = P (I ) + D + PE = PEEK ( PO) = GOTO 136 
IF РЕ < > 32 AND RND ( 1 ) > .5 THEN 
D = INT ( RND (1) ¥ 5— 1) $ 
PO =P (I ) + D ғ PE = PEEK (РО) 
IF PE < > 32 THEN D = O = GOTO 500 
IF PO > 1983 THEN POKE P ( I) ,32 = 
T ( I) = O + GOTO 600 
GOTO 500 
CL = 10 = CH = 15 + 
D = INT ( RND (1) ¥ — 1) + 
IF RND ( 1) > „1 THEN 
D= (P (I) >P ) - (P CI > « P) 
PO =P (I ) + 8 РЕ = PEEK (PO ) + 
IF PE = PC THEN 1000 
IF PE < > 32 THEN D = O 
GOTO 500 
CL = INT C RND ( 1 ) 8 15 + 1) > CH = B : D = O 
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‚52+ T (J) = O s 


190 IF CA = 5 THEN POKE P € ህ)) 
+ 1 2 GOTO 600 


CA = CA - 1 5 NE = NE 
| 195 GOTO 505 
500 POKE Р (1) ,32 5 P ( I) =P (C ID) * D 
505 POKE P ( I ) + CO,CL * POKE P ( I ) ,CH 
600 IF K < > 44 OR N > - 1 OR NE = O THEN 405 
601 М =P * NE = NE - 1 + POKE 54290,0 + 
POKE 54291,71 + POKE 54287,34 + POKE 54286,75 
602 POKE 54290,17 
605 IF K < > 47 OR $ > — 1 THEN 610 
606 8 =P + POKE 54290,0 + POKE 54291,71 + 
POKE 54287,72 + POKE 54286,169 + POKE 54290,33 


610 IF N = — 1 THEN 650 
615 POKE N,32 + N = N - 40 * ፲፻ N < LS THEN N = — 1 
+ GOTO 650 
617 IF RND ( 1 > > .95 THEN N = N + 40 s 
POKE М + ር0,4 + POKE N,7 + N = - 1 = GOTO 650 
620 IF PEEK ( N ) = 32 THEN POKE CO + N,4 ፥ 
POKE N,6 + GOTO 650 
640 N = N + 40 * POKE N + CO,4 + POKE N,7 5 N = - 1 
650 IF 8 = - 1 THEN 700 
655 POKE 8,32 $ S = 8 - 40 + IF < LS THEN S = - 1 
5 GOTO 700 


660 PE = PEEK ( 8 ) * С = PEEK ( S + CO ) ፥ 
POKE S + ር0,8 = POKE 6,9 è IF РЕ = 32 THEN 700 
661 POKE 54290,0 : POKE 54287,8 è POKE 54286,37 + 
POKE 54291,36 + POKE 54290,129 


665 POKE S + CO,7 + POKE 5,10 * FOR J = 0 TO 4 =; 
IFT (J) =0 ORP (J) < > S THEN 680 

670 IF Т (J) >? 5 THEN T ( J ) = T ( J ) - Š & 
SC = SC + 5 5 J = 100 5 СА = CA - 1 + 
NE = NE + 1 = GOTO 680 

675 SC = ኳር + T ( J ) % 10 5 IF RND ( 1 ) < .7 
THEN T (J) = 0 5 J = 100 = GOTO 680 

677 FOR Ji = 0 TO 4 5 IF T ( J1 ) = O THEN 
T (J1)=T (J) +P (ህ1) =P (9) = 
Ч1 = 100 5 J = 100 


678 NEXT Ji 2 IF Ji < 99 THEN T (J) = O 5 J = 100 
680 NEXT J + IF J > 5 THEN POKE 5, 52 5 GOTO 690 
682 IF PE = 7 THEN NE = NE + 1 ፥ PE = 32 
683 IF PE = 5 THEN PE = 32 
685 POKE $ + CO,C 5 POKE S,PE 
690 8 =- 1 
700 POKE 34273, RND ( 1 ) 8 50 ሩ POKE 54272, 
RND ( 1 ) $ 256 * IF ር = 60 THEN 800 
701 RE = О 5 IF SC < 25 THEN POKE V + 32,0 
702 IF TI$ > "OOO250" THEN POKE V + 32,7 + GOTO 704 
703 IF SC > = 25 THEN POKE Y + 32,11 
704 IF BO = O AND SC > 1000 THEN SZ = 0 = BO = 1 
705 NEXT І * IF TI$ < "000300" THEN 50 
707 IF 5 > — 1 THEN POKE 5,52 + 8 = - 1 
708 IF N > — i THEN POKE N,32 5 
710 FOR I = O TO 4 * IF T (Г) 
POKE Р (1) ,52 > T ( 1 ) = OQ 
715 NEXT * NE = 20 5 RE = = = 0 В 
717 POKE V + 33,7 + FOR I = 1 TO 1000 = NEXT + 
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POKE V + 33,0 

720 К = PEEK ( КВ) : POKE P,32 + 
P=P-40+ (K=L) = (K=R) 

725 PE = PEEK ( Р ) + POKE Р + CO,7 + POKE Р,РС + 
IF Р < LS THEN Р = 2004 * SC = SC + 100 5 
GOTO 25 

727 FOR I = 1 TO 50 = NEXT 

730 IF PE = 32 THEN 720 

735 LI =O 5 I =O 3 P (I ) =P ғ GOTO 1000 

800 IF SC < 25 OR RE THEN 705 

805 POKE V + 33,13 : SC = SC - 25 + FOR J = O TO 4 
+ IF Т ( J ) = O THEN 820 

806 POKE 54290,0 + POKE 54287, 72 ፥ POKE 54286,169 + 
POKE 54291,17 ፥ POKE 54290,129 

810 ፲፻ SZ = 1 AND TJ < > 5 THEN 820 

811 IF T ( J ) > 5 THEN CA = CA - 1 : NE = NE + 1 

815 POKE P ( 3 ) ,32: T(J) = O 

820 NEXT J + SZ = 1 + POKE V + 33,0 + RE = 1 + 

5 


“° 


1000 POKE P ( I ) ,32 + PDKE V + 33,11 
FOR J = 1 TÜ 1000 + NEXT 
1002 POKE 54290,0 + POKE 54287,4 + POKE 54286,73 + 
POKE 54291,240 + POKE 54290,129 
1005 POKE V + 33,12 + FOR J = 1 TO 1000 + NEXT 
1010 POKE Y + 33,15 + FOR J = 1 TO 1000 + NEXT 
1015 POKE Y + 33,0 + FOR J = 1 TO 1000 = NEXT 
1020 T (I) = O 5 87 = O ፥ LI = LI — 1፥ 
IF LI > 0 THEN 700 
1025 POKE V + 24,21 + PRINT "EZ m4GAME , OVER" + 
PRINT " [eq [eq [el [EJYOU . SCORED" ; SC 
1030 IF SC > HI THEN HI = SC 
1035 PRINT " 124 [e] ወበ [MHI „ IS"; HI 
1040 PRINT ~ [e [el ሀ] ESANOTHER , GAME?" 
1042 FOR I = O0 TO 4 + T (I) =0: P (1I) =O : 
NEXT 
1045 GET A$ : IF A$ = "Y" THEN RESTORE + GOTO 10 
1050 IF A$ < > "М" THEN 1045 
1052 POKE 54272,0 : POKE 54273,0 + POKE 54287,0 + 
POKE 54286,0 
1055 END 
10000 DATA 128,128,128,128,128,128,128,128,1,1 
,1,1,1,1,1,1,0,0,0,0,0,0,0,255 
10005 DATA 1,2,4,8,16,32,64,128,128,64,32,16,8 
,4,2,1,8,8,8,8,8,8,8,8 
10010 DATA 8,28,62,28,8,0,8,8,62,107,73,119 
» 73,107, 62, 0, 62, 65, 65, 73, 65, 65, 62,0 
10015 DATA 8, 28, 42, 42,8, 0,8, 0, 65, 34,54, 60, 252 
, 60, 34, 65,0, 65, 65, 65, 107, 107, 62, 28 
10020 DATA 54, 214, 124, 214, 54, 16, 40, 68,0, 144 
, 124,56, 254, 56, 68,130 
10025 DATA 0,16, 40, 48, 130, 68, 40, 16,0, 68 
, 564,84, 254, 124, 130, 68 
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CHEXSUM 


= 

1-323783 
5=4738 
Y=3S 757 
л-ге 


- J co 


= ل“‎ LO 
mu 


m m += 
(a 
It 
XU 


MAD (п (3 гп 
n 


ዘ 
E p 

ІЛ — fu 

E 

ርዐ 


if (© ዬ 


መጋ rn 
ዘ 

W d 
u 
A 
“ዝ 


(ቁ w 


b 


ርቫ 
ቢን 
+ 


Л do 
И 
; (Ü 
pr 


s= HS 

S5=461A 
ESA 118388 
ኀእ=5=31=ፎ 

тез 1 1 1а 
тез: :! БЕ? 
75=3428 
3022453 
83-024 
26=11£:3 
2/=51:249 
mm SSE 
ай= 1556 
35=158Y72 
305 03 

13 = = Ad 
10121183 
IQS=Z152 
teo 
(= 1566 


к= к< 
tarota р 
Bom Z 
H 


ኒጩ 
~j 


пре 
тр 
ІЛ ru 


1 J | mæ «+ = 
< à j^ - 


m m 


12=529 
1.” 
==512=27 
#- 1163 


ርጋ 
li 
u fD ሥ 
m ra 
ID 
0 


B ሎራ NE м» forde 
JI 
መሕ ር 
10 


tí TU ГІ ee € 
ርበ 
II 


3 
H 
da 
ጥ 
co 
5 


UI 
ዘ 


Т) 

l! 
D) = M IR 
2 


ኮው poe ቴራ 
Ne: ok [к 

тал ርዕ 
ርህ 


Л da Ja ш Lu 
ሯ 
ዘ 


eu 
U 


a 


чт 


по н 
ГӘ ርጋ 


u 
! 
ርቫ Co 
"J 


ርቫ 
LA Ги 

H 

^J го 


СЛ 


ዘ 
re ጮ [Л 


xi (M іп 
G Na 
Hom H 
ІЛ ІЛ 
[ü (D dà Гу “1 Cñ fu 
t U ጮ ТП 
2 іліп ro 


m c 
ኒኒ] 


nO 
1 


“.1 


tal 

ea cl 

ዘ M 
LJ 0 


A 
i 
| 


E 


685=1735 
5Ø6=3769 
5 1Ø=964 


E650-48070 
661-3838 
E65=3964 


1196 
a= 485 
7080-3346 
781-1873 
7A2=2432 
743=1645 
704=2346 


Dn 


rar=1rre 
vas=1738 
7 


mo 
ዘ 

ቢነ 
-l 
መ 
n 


“1 
ዘ 

w Tu Tu 
p 
M 
ل“‎ 


2 
li 


LO ኪነ ru ሺነ => ке ኮኑ 
j ل“‎ M 
ዘ | 
Q р 
C3 (D 
0 m 
E 


dl o md ILS ЕС‏ ل“ 


а A 
3 U 
eiu 
ዘ HH I 
ru ር 
B ርህ 
ርነ © 


O 


TU — — = 


A=2487 


e 


155-1283 


imppea-334A 


10005-2288 
10018-4322 


1981535 


=4215 


аа 


TOTAL. = 


743191 


Star Duel 


Ram challenges you to a dog fight. The game begins when you accept 
the challenge. 


You must avoid the ground, his craft and his missiles while trying to 
manoeuvre your craft into a position which will enable you to fire your 
missiles at him. 


Your craft is controlled by using the 'W' and 'X' keys to move up and 
down, and the 'A' and 'D' keys to shift left and right. When you have Ram 
in your sights use the 'S' key to fire your missile. 

Remember, if either craft is hit ዘ will crash to the ground. 


Y ours is the blue craft. See if you can outsmart him! 
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PROGRAM STUCTURE 
INITIALIZATION 


CHANGE DIRECTION OF OPPONENT 
(OR ON COLLISION) 


CALCULATE NEW POSITION AND MOVE OPPONENT 
IF HIT (YOU): DROP, MUSIC AND MESSAGES 


GET KEY PRESSED, IF HIT OPPONENT: 
DROP, MUSIC AND MESSAGES 


CHANGE DIRECTION OR HEIGHT ACCORDING 
TO KEY 


IF ‘FIRE KEY’ PRESSED 
POSITION BULLET 

NOISE 

MOVE IN DIRECTION D 

WRAP AROUND SCREEN 

IF HIT (YOU): DROP, MUSIC AND MESSAGES 
IF BULLET TRAVELLING 

MOVE 

IF IT HITS: DROP, MUSIC AND MESSAGES 

IF OPPONENT BULLET TRAVELLING 

MOVE 

IF IT HITS: DROP, MUSIC AND MESSAGES 
GO TO CHANGE DIRECTION OF OPPONENT 
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LINES 
0— 25 
26 


27 — 48 
49 
50 


55 — 70 


72 

73 

74 

75 

80 — 101 
102 — 104 
110 
120 — 131 
132 

150 
170 — 181 
182 


1000 — 1020 


DROP ROUTINE (YOU) 


2000 — 2020 


DROP ROUTINE (OPPONENT) 


5040 


5000 — 


MUSIC AND MESSAGE ROUTINE (OPPONENT) 


6040 


6000 — 


MUSIC AND MESSAGE ROUTINE (YOU) 


— 9110 


9000 


SPRITE DATA 


OPPONENT'S BULLET POSITION 
OPPONENT'S BULLET DIRECTION 


YOUR POSITION 
BULLET POSITION 
BULLET DIRECTION 


YOUR DIRECTION 
D1 = OPPONENT'S DIRECTION 


SX 


X1, Y1 = ОРРОМЕМТ 5 POSITION 


VARIABLES 
X, Y 

D 

SD 

SZ 

DZ 


HAHA ja 


PLAVER/ALIEN 
PLAVER/ALIEN 


መድር መ AS 


: 24445: A> 
EES 


š 

ж% 
BE: 

ut 


ማህ 
u 
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STAR DUEL 


ዕ 


10 


12 


14 


12 


1ሬ 


43 


POKE 54296,10 + POKE 54277,0 + POKE 54278,240 + 
POKE 54276,0 5 POKE 54276,129 + SX = O 

POKE 54272,0 + POKE 54275,0 $ PRINT "ርጋ" + 
POKE 53280,4 * POKE 55281,4 = CO = 54272 


ጤ 


Y = 53248 
POKE 2041,193 


POKE 2044,195 + 


P 
ጭ 


POKE V + 28,31 * POKE V + 37,2 = POKE V + 38,7 

FOR I = O TO 254 * READ Q + POKE 12288 + 1,0 + 
NEXT = POKE V + 21,31 * POKE V + 29,19 = 
POKE V, 100 

POKE V + 2,200 + POKE V + 4,50 + 
POKE V + 6,230 = POKE V + 8,165 

GOSUB 4000 

РЕ = PEEK ( V + 50 ) = PE = PEEK (C + 31 D) + 
X = 100  Ү = 60 5 D = 4 2 X1 = 200 = 
Yi = 120 5 Di = - 4 

PRINT “ЕЗ (el (e? (e) (A [e] (el (ed (e (а [е (e) [ed (ет (ей 
[e] [eq [ጆባ [e] (1 BI 13 ሠገ CY Ге BA EE ዘዘ ሠባ . . O EI EI EI 
El Pl El ሠ] [Sq PI BI BI BI ሠ] . N BI El BI El El BI ሠ] 
ЧЕ ЕЕЕ БЈР. . å å å å ГЕ"; 

PRINT "ld a ል e ПР. . MS ЕРЕ! 
тт... MB ኮሌ1 EWN . . r" bl Pl EI Р) 
a a а ал ል ል а ж 5 

PRINT "da a ሖ a a ል „гт. . . . [ዌ 
Fl. lo... [NEJEIPI . . . „ПЫ 
a Aa a лд dæ A А ሒ А 9 

PRINT "I un a a a a à ظ‎ a a A жи 
а 7. NFI a ል. а ии ы A А а а va 
EJ" * ТА = INT ( RND ( 1 ) ¥ 10 ) 

FOR I = 56256 TO 56295 + POKE I — CO,160 = 
POKE 1,9 + NEXT 

FOR I = 56256 + TA TO 55837 + TA STEP - 39 = 
POKE I — СО, 255 + POKE 1,5 + NEXT 

FOR I = 56278 + TA TO 55837 + TA STEP - 41 = 
POKE I — СО, 225 + POKE 1,5 = NEXT 

FOR I = O TO 10 > FOR J = 
56257 — I ¥ 40 + I + TA TO 56277 - I ¥ 40 - I 
+ TA = POKE J — СО, 160 + POKE J,3 = NEXT 

NEXT 

IF RND (С 1 ) < .ОЗ OR PEEK ( V + 30) = 2 
THEN 01 = — 01 = POKE 54273,10 

X1 = Х1 + Di = IF RND ( 1) < „1 THEN 
Yi = Y1 + C Y1 >Y) ፦ C YA < Y?) ) ቹ 42 
GOTO 30 

Yi = Yi + ( INT (C RND ( 1 ) ¥ 5) - 1) ¥ 4 

IF X1 < 10 AND Di = - 4 THEN Х1 = 320 

IF Xi > 320 AND Di = 4 THEN Хі = O 

IF VI < 60 THEN Yi = 60 

IF Y1 > 200 THEN Yi = 200 

IF RND ( 1 ) > „2 OR Y1 < Y - 10 AND 
Y1 > Y + 10 AND RND ( 1 ) < .30 OR 
52 < > O OR X1 > 280 THEN 45 

52 = X1 + (DL ¥ 5 ) + D2 = Di ¥ 5 $ 


POKE 2040,192 
POKE 2042,194 + 
POKE V + 40,5 + 


ж 


POKE V + 39,14 + 
POKE 2045, 194 
POKE V + 45,0 > 


^ 
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IF Di = 4 THEN 52 = 52 + 30 * POKE V + 7,Y1 
FOR I = 50 TO O STEP — 2 * POKE 54273,1 + 
NEXT = POKE 54275,0 


IF 01 = — 4 THEN POKE 2041,193 
IF Di = 4 THEN POKE 2041,192 
POKE V + 3,Y1 * IF Хі > 255 THEN 


POKE V + 2,X1 ፦ 256 5 POKE V + 16, 
PEEK ( V + 16 ) OR 2 = GOTO 49 


POKE V + 2,X1 
AND 253 


5 POKE V + 16, PEEK ‹ V + 16 ) 


IF PEEK ( V + 30 ) = 3 THEN 1000 
PE = PEEK ( 197 ) * IF PEEK € V + 30 ) = 6 THEN 2000 
IF РЕ = 9 AND Y > 60 THEN Y = Y – 4 2 

POKE 54273, 200 


IF PE = 23 THEN Y 
= 10 THEN D 
IF PE = 18 THEN D 


IF PE 


4 + POKE 54273, 200 
* POKE 54273, 10 
POKE 54273,10 


Y + 
- 4 
4 + 


IF PE < > 13 OR SX < > 0 OR X > 200 THEN 75 

SX = X + (DX 5 ) с: POKE V + 5,Y < SD = D * 3 
* IF D = 4 THEN SX = SX + 30 

FOR I = 50 TO O STEP — 2 5 POKE 54273,1 + 
NEXT = POKE 54273,0 

X= X + D* IF D = 4 THEN POKE 2040, 192 

IF D = — 4 THEN POKE 2040, 193 

IF X < 10 AND D = - 4 THEN X = 320 


IF X > 320 AND D = 4 THEN X = O 
5 1 


POKE 54275,0 + 


POKE V 4 1,V F X > 255 THEN 


POKE V,X - 256 + POKE V + 16, PEEK ( V + 16 ) 


OR 1 * GOTO 
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POKE V,X = POKE V + 16, PEEK ( V + 16 ) AND 254 
IF PEEK ( V + 300 ) = 3 THEN 1000 


IF PEEK ( V + 30 ) 


9 THEN 1000 


IF PEEK ( V + 31 ) = 1 THEN 1000 


IF SX = O THEN 


150 


IF SX < 10 OR SX > 310 THEN SX = 0 5 SD = Q 2 


POKE V + 5,0 
SX = SX + SD + 


5 POKE V + 4,50 
IF SX > 255 THEN 


POKE V + 4,5X — 256 = POKE V + 16, 
PEEK ( V + 16 ) OR 4 = GOTO 132 


POKE V 4 4,5X 
AND 251 


: POKE V + 16, PEEK ( V + 16 ) 


IF PEEK ( V + 30 ) = 6 THEN 2000 


IF 52 = O THEN 


26 


IF 52 < 10 OR 52 > 310 THEN 52 = ሰ 2 02 = 0 ፥ 


POKE V + 7,0 
52 = 52 + D2 + 


2 POKE V + 6,230 
IF S2 > 255 THEN 


POKE V + 6,52 - 256 + POKE V + 16, 
PEEK ( V + 16 ) OR 8 = GOTO 182 
POKE V + 6,52 = POKE V + 16, PEEK ( V + 16 ) 


AND 247 


IF PEEK ( V + 50 ) = 9 THEN 1000 


GOTO 26 


* POKE V 


POKE V 4 7,0 2 FOR I - Y TO 200 
,I * POKE 54275,1 

+ NEXT + NEXT = POKE 54275,0 

+ POKE V + 1,0 * NEXT 
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1020 
2000 


2005 
2010 
2020 
4000 


4001 
4002 


4003 
4004 
4010 


4020 
4025 
4026 


4028 
4030 


4040 


4050 
4060 


4065 
4066 
4067 
4070 
3000 


5001 
5002 


9003 
9010 
3020 
5025 
9030 
9035 


3040 
6000 


6005 


6010 


6020 


GOTO 5000 

POKE V + 4,0 2 POKE V + 5,0 + 
FOR І = VI TO 200 + POKE V + 3,1 5 
POKE 54273,1 


FOR J = 1 TO 5 NEXT * NEXT + POKE 54273,0 


O ж 


FOR I = 1 TO 7 POKE V + 1,0 2 NEXT 
GOTO 6000 
PRINT "е 194 31; ІІ; ኣዝ. E AE ES CD iE SE SE SE SD ZE SE SD LE 
im STAR , DUEL (4 iT; iD iE iD iD iE iD iD iE E RE iD iD 313595 
FOR 1 = 1 TO 11 
PRINT "¿LL EE: а EE iD UG iG 
E НЕЙ HEN НЕ iE"; 
МЕХТ 
POKE Y + 8,165 + POKE V + 9,100 


PRINT "Jim å „Г „AM „RAM „OF a PLANET 
a BYTE. „I „HAVE „CHOSEN = å YOU „ТО a DEFEND 
a YOUR a PLANET." 


PRINT "ІШІ , CHALLENGE „YOU „TO „A a DUEL!" 

PRINT "DO , YOU „ ACCEPT?" 

GET AS + IF AS = "N" THEN PRINT “ [z3COWARD" 5 
END 

IF AS < > "Y" THEN 4026 

PRINT * a a THE ኢፌ DUEL 4, WILL „BE a ABOVE , THE 


a PLANET , MARS" 

PRINT "O, å ІШІ „MUST „WARN , YOU , THAT a ONLY 
a ONE „OF a YOUR. å „SHOTS „CAN . DESTROY „МЕ.“ 

PRINT "m å å YOU a HOWEVER , САМ 4 CRASH!" 

PRINT "ІШ, a a „PRESS „ 'SPACE' „WHEN „ YOU 
a ARE a READY." 

GET A$ + IF A$ < > " ," THEN 4065 

PRINT "EZ" = POKE V + 9,0 

POKE 55281,0 + POKE 55280,0 

RETURN 

POKE 53280,4 = POKE 53281,4 + PRINT "E" = 
POKE 54273,0 

PRINT " Ej"; * FOR I = 1 TO 12 


PRINT "iD iD iD ib iD iD iD iD үң E E HES НИ SE ZI 
TET HES HES FHES HES HES HES HES HES HES HES HES HES HES HES Р 
ils ites 

NEXT 


PRINT " m GOODBYE, MORTAL. YOU , FOUGHT , WELL." 
PRINT " 124 [el Ге) (DOES „ ANOTHER , HUMAN 4 DARE 

4 TO , CHALLENGE , ME?" 
GET AS 5 IF ñ$ = "Y" THEN GOSUB 4066 + GOTO 7 


IF AS < > UNU THEN 5025 

PRINT " m VERY , WELL, THE „EARTH a WILL „SOON , BE 
| a MINE!" 

END 


POKE V + 23,16 + POKE 55280,4 + POKE 55281,4 + 
POKE V + 8,150 + POKE Y + 9,100 > POKE 54275,0 

POKE 54296,0 + POKE 54296,15 5 POKE 54276,0 + 
POKE 54276,17 

PRINT = 124 Бі [e] 00 [e] [ወ [ө] [ө] [e] (60 (60 (9) (በ (መ (е [e I a AM 
a DYING , EARTH 4 MAN!" | 

FOR I = 1 TO 200 = POKE 54275,1 + NEXT + 
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6025 
6026 


POKE Y + 9,0 + FOR I = 100 TO 1 STEP - .5 
POKE 54275,1 + NEXT * FOR I = 10 TO 50 STEP .5 
POKE 54275,1 + NEXT + POKE V 

POKE Y 4 29,0 2 POKE Y + 8,150 + 

POKE V + 9,100 
FOR I = 1 TO 50 STEP .5 + POKE 54275,1 + NEXT + 

POKE V + 8,0 + POKE V + 9,0 + FOR I = 20 TO 1 

STEP - .2 
POKE 54275, ፤ + NEXT + POKE 54273,0 
PRINT "іш IZiGOODBVEEE' ! ! ! " 

GET A$ + FOR I = 1 TO 5000 + NEXT + PRINT " Ç3" 
END 
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3 

,0,0,3,0,0,3,192,0,3,192,0,19,240,0 
DATA 7,176,0,67,247,128,7,183,32,83,247 

,245,2,166,245,2,240,0 
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,99 
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

,0,192,0,0,192,0,3,192,0,3,192,0,15,196 
DATA 0,14,208,2,223,193,8,222,208,95 

,223,197,95,218,128,0,15,128,0,0,0,0,0 
DATA 0,0,0,0,0,0,0,0,0,0,99 
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,0 
DATA 0,21,0,0,127,64,0,21,0,0,4,0,0,0 

,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,99 
DATA 60,0,60,12,170,48,15,170,240,14 

,170,176,2,130,128,2,0,128,2,60,128 
DATA 10,60,160,10,0,160,10,0,160,8,0 

,32,8,170,32,8,150,32,8,150, 32,88, 170 
DATA 37,88,0,37,90,0,169,21,170,84,21 

,130,84,5,170,80,5,170,80 


q 4 


SPRITE 


PLAYER/ALIEN 
MISSILE 
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CHEXSUM 


іл ሥመ ¿o Tu 
ко | 
E E 
gå 

ч © 


B 
H 
U) 
ጋ 
a 
LD 


መጠ ርበ A ከን 
ዘ H I 

ርነ по MI 
m O w 
we (D 
U ኮህ (0 


B to co 
ዘ 
W i 
со 
(0 
-j 


[U TU TO በ! ኡ me ሎራ boba ሎራ ኑራ 
co -J መ (Л 
nH n H I 

ቴ 


о fo to MU 
3 
IL 


መ dg 


44=2626 
45-1468 
46-1280 
47-4843 
49-2376 
48-1456 

22310 
55=2610 
60-2867 
65-1917 
78-1756 

=2475 
73=4121 
74=2626 


17) 2ሮ=1435 
13214565 
104-1456 
110-888 
120-3812 
1280-5138 
12122405 
122-1460 
15й-7 92 
17H=3731 
120-4866 
121-23728 
iee-i456 
19ø=474 
1808=3432 
1005=1EY86 
1010=1528 
1020-2583 
eeno-z3a5el 
2ØØ5= 1676 
EBIB-1528 
2Ø2ØA=583 
41080 =8393 
48M1=7r11 
дайг =95025 
3003-2131 
anad-zi438 
42010-6673 
4028=2244 
Tac 5=1241| 
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TOTAL = 


43E6 = 14425 
ዓፎይር57=1171 
4878=143 
SAOA=23A5 
3081=1122 


Л ርቫ (Л 
Der 
W TO [ГО re 
SO w 
ዘ 
ru > 
(Ü : 
W 
ке 


` 3 
3 (Л 

| 

ኑራ 

ኑጫ 

0 

D 


6028-3641 
6025-1914 
60296-3755 
6028=45A8 
6A29=1365 
60380-1302 
6035-1864 
6040-123 

3008-4013 
9810-3247 
9920-1896 
9038-4430 
3040=44239 
4050-1307 
3060-3885 


Cowboy Shootout 


Shoot the computer-controlled cowboy as many times as you can 
without him shooting you. As you shoot it out you have to avoid the 
wagons passing between you. You can't shoot through them. 


Y our controls are: 
ММ for up 
'X* for down 
'S' to fire 
You're on the left, the computer is on the right. 


Straight shooting! 
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PROGRAM STRUCTURE 
INITIALIZATION 

GET KEYBOARD CHARACTER 
PUT PLAYER AT RESULTANT POSITION 
PUT COMPUTER 

PLAYER SHOOTS 
COMPUTER SHOOTS 

MOVE CARRIAGE 

SHRINK CARRIAGE 

TEST IF PLAYER SHOT 

TEST IF COMPUTER SHOT 
TIME DISPLAY 

DATA 


VARIABLES 
К = KEYBOARD CHARACTER 


LINES 

1— 45 

50 

55, 57 

60 — 80 

85, 90, 130, 135 
100, 125, 155, 160 
165 

170 

175 

176 

182 

10000 — 10115 


A = ALTERNATELY HOLDS THE POSITIONS OF COMPUTER AND 


PLAYER 
PS — PLAYER SHOOT FLAG 
CS = COMPUTER SHOOT FLAG 
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COWBOY SHOOT-0UT 


1 


9 


10 


15 


20 


25 


45 


JO 


JI 


97 


60 


100 
105 


110 


125 
130 


135 
150 
155 


POKE 54296,0 + POKE 55,255 + POKE 56,47 
5 V = 53248 + POKE 54296,15 
FOR I = © TO 510 : READ A + POKE 12 % 1024 + I,A 
5 NEXT $ PRINT " K3" 
POKE 2040,192 + POKE 2041,192 + POKE V,86 
2 POKE V + 1,50 + POKE V + 2,244 
5 POKE V + 3,200 
POKE V + 39,14 + POKE V + 40,7 * POKE V + 33,8 
5 POKE V + 32,5 + POKE V + 28,19 
5 POKE V + 37,9 
POKE V + 38,10 ፥ POKE V + 21,19 + POKE V + 41,1 
+: POKE V + 42,1 $ POKE 2042, 198 : POKE 2043, 198 
POKE 2044, 199 ፥ POKE V + 43,7 + POKE V + 8,160 
: POKE V + 9,248 : POKE V + 23,16 
5 POKE V + 29,16 
KB = 197 + PS = 0 + CS = O + PC = O > 
А = PEEK ( V + 30 ) 5 CO = O 5 YO = O 
TI$ = "000000" 


e | 9 o 


K = PEEK ( KB ) * А = PEEK C V + 1) 
A=A+(K=23)*(A< 225) 
*2-(K=9) ¥ са > 50) 2 

POKE V + 1,A * PC = PC + 1 


* ТЕ РС = $ THEN РОКЕ 2040,192 3 РС = O 
СС = ርር + 1 5 ТЕ СС + 3 THEN РОКЕ 2041,192 


5 CC = 0 
A = PEEK (C V + 5) 
5 IF RND ( 1 ) > .3 
THEN A = A + INT ( RND ( 1 > ¥ 3-1) ቐ 2 
GOTO 70 


А = А + (A > PEEK СУ + 1 ) ) 
2 - (А < PEEK (V * ) ) 2 
IF A > 255 THEN A = 255 
IF A < 50 THEN A = 50 
POKE V + 3,A * IF K < > 13 OR PS THEN 100 
POKE 2040,194 + РС = О + PS = 1 5 POKE V + 4,98 
5 POKE V + 5, PEEK ( V + 1 ) 
5 POKE V + 21, PEEK ( V + 21 ) OR 4 
POKE 54273,17 + POKE 54272,37 + POKE 54277,24 
5 POKE 54276,0 < POKE 54276,129 
IF RND ( 1 ) < .9 OR CS THEN 125 
POKE 2041, 195 + CC = O + CS = 1 * POKE V + 6,232 
5 POKE V + 7, PEEK ( V + 3) 
5 POKE V + 21, PEEK ( V + 21 ) OR 8 
POKE 54287, 17 + POKE 54286,37 ፥ POKE 54291,24 
5 POKE 54290,0 + POKE 54290, 129 
F PS = O THEN 150 
= PEEK (V + 40 + В 
5 IF А > 255 
THEN POKE V + 21, PEEK ( V + 21 ) - 4 
5 PS = O + GOTO 150 
POKE V + 4,A 
IF CS = O THEN 165 
V+6)-8 


I 
A 


122 


160 
165 
170 
175 
176 
177 
180 
182 
185 
190 
195 


200 
205 


210 


215 


1000 


1005 


1010 


1015 


1020 


1025 
2000 


2005 


2010 


2015 


2020 


2025 
2030 
10000 


10005 


THEN POKE V + 21, PEEK ( V + 21) - В 
5 CS = 0 5 GOTO 175 

POKE V + 6,A 

POKE V + 9, PEEK (V+9)-4 
5 IF PEEK ( V + 9 ) = 8 THEN POKE V + 23,16 
s POKE V + 29,16 : POKE V + 9,244 

IF PEEK ( V + 9) = 120 THEN POKE V + 23,0 

5 POKE V + 29,0 

= PEEK ( V + 30 ) + IF А = 9 THEN 1000 

IF A = 6 THEN 2000 


1 A = 20 THEN PS = О = POKE V + 4,0 
IF A = 24 THEN CS = 0 * POKE V + 6,0 
PRINT “ 14“; TIS 


IF TIS < "000100" THEN 50 
POKE V + 33,0 + POKE V + 27,255 
5 PRINT "LZ ESTIME , UP" + PRINT " [el [el [e] SCORE s " 
PRINT "ізі [el ሀባ ወ YOU. 2 4 a 4 "5 YO 
5 PRINT ''COMPUTER' ነ ር0 
PRINT “ [eq (ei (el (е GJANOTHER 4 GAME?" 
GET A$ + IF A$ = "Y" THEN POKE V + 27,0 
5 PRINT "EZ" + GOTO 10 
IF A$ < > "М" THEN 205 
POKE V + 27,0 + POKE V + 21,0 + POKE 54273,0 
5 POKE 54272,0 + POKE 54287,0 + POKE 54286,0 
5 END 
POKE 2040,196 + T$ = TI$ + POKE 54273,34 
2 POKE 54272,75 + POKE 54276,0 + POKE 54277,240 
POKE 54276,17 + POKE V + 28, PEEK ( V + 28 ) OR В 
5 POKE V + 6, PEEK (V) 
5 POKE V + 7, PEEK ( V + 1 ) 
POKE V + 21, PEEK ( V + 21 ) OR 8 : POKE 2043,197 
FOR I = PEEK ( V + 1 ) TO 0 STEP - .1 
$ POKE V + 7,1 * NEXT 
POKE 2040,192 * CS = O 
POKE V + 21, PEEK ( V + 21 
POKE V + 28, PEEK ( V + 28 
POKE 2043, 198 
CO = CO + 1 + GOTO 2030 
POKE 2041,195 + T$ = TI$ : POKE 54287,34 
5 POKE 54286,75 + POKE 54290,0 + POKE 54291,240 
POKE 54290,33 + POKE V + 28, PEEK ( V + 28 ) OR 4 
2 POKE V + 4, PEEK ( V + 2) 
2 POKE V + 5, PEEK ( V + 3) 
POKE V + 21, PEEK ( V + 21 ) OR 4 * POKE 2042,197 
FOR I = PEEK ( V + 3 ) TD O STEP - .1 
5 POKE V + 5,1 + NEXT 
POKE 2041,192 + PS = O 
POKE V + 21, PEEK ( V + 21 ) — 4 
POKE V + 28, PEEK ( V + 28 ) – 4 
POKE 2042,198 ` 
YO = YO + 1 
А = PEEK ( V + 30 ) * TI$ = T$ $ GOTO 50 
DATA 0,4,0,0,21,0,0,12,0,0,12,0,2,170,160,10,170, 
168,8,170,136,8,42,8 
DATA 8,42,8,8,85,8,11,106,56,0,21,0,0,21,0,0,17, 
0,0,81,64,0,81,64,0,64,64 


)-8 
) - 8 


q 4 4 


$ db db 
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10010 DATA 0,64,64,0,64,64,0,64,64,0,64,64,99 

10015 DATA 0,0,0,0,4,0,0,21,0,80,12,0,48,12,0,42,42, 
64,10,170,160,0,170,8 

10020 DATA 0,42,8,0,42,8,0,21,32,0,41,48,0,21,0,0,21,0, 
0,81,0,1,65,0,1,1,0,1,1,0 

10025 DATA 1,1,64,1,0,84,5,0,4,99 

10030 DATA 0,0,0,0,16,0,0,84,0,0,48,5,0,48,12,2,168, 
168,10,170,160,32,170,0 

10035 DATA 32,168,0,32,168,0,8,84,0,12,104,0,0,84,0,0,84, 
0,0,69,0,0,65,64,0,64 

10040 DATA 64, О, 64,64,1,64,64,21,0,64,16,0,80,99 

10045 DATA O, 0, 0,0,0,0, 0, 0,0,0,0,0,0,0,0,0,0,0,0,6,0,0, 
0,0,0,0,0,0,0, Ó; o, 0, 0,0, 6 

10050 DATA 0,0,0,0,4,0,5,21,165,80,174,165,64,2,128, 
17,0,160,4,0,128,0,2,128 

10055 DATA 0,58,0, 0, 99 

10060 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0, 0, 0, о, 0, 0, 0, 0,0,0,0,0 

10065 DATA 0,0,0,0,80,0,16,5,90,84,1,90,186,68,2,128, 
16,10,0,0,2,0,0,2, 128 

10070 DATA 0,0,172,99 

10075 DATA 0,12,0,2,12,32,10,42,40,10,170,168,10,170, 
168,10,170,168,10,170,168 

10080 DATA 10,187,168,10,170,168,10,170,168,10,42,40, 
10,42,40,2,42,32,2,34,32 

10085 DATA 2,34,32,0,34,0,0,34,0,0,34,0,0,34,0,0,34,0, 
0,0,0,99 

10090 DATA 0,0,0,0,0, 

10095 DATA 0,0,0,0,0, 
0,0,0,0,0,0,0, 

10100 DATA 0,0,0,0,0,0 ,9,0,0,0,0,0,0,99 

10105 DATA 0,0,0,0,8,0,0,170,128,2,170,160,10,128, 148, 
10,0,40,10,0,40,10,1,40 

10110 DATA 10,5,104,10,3,40,10,5,104,10,1,40,10,1,40, 
10,1,40,5,85,84,0,4,0 

10115 DATA 1,4,16,1,4,16,1,85,80,1,0,16,1,0,16 


16,0, 


0,0 0,0, 
0,0 0,0,0,0,0,0,0, ,0,0,0,0,0, 
Q 


3 3 
3 LI 
0,0,0, 
39; 
о, 


о, 
о, 

0,0,0,0 
O, 
1 


SPRITE 


PLAYER/ENEMY CARRIAGE 
SHOOTING 
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Earth Defense 


You are left with insufficient fuel to make it back to earth so you embark 
on a suicide mission to kill as many aliens as possible with your 
remaining fuel. 


Your controls are: 
'W' up 
‘x’ down 
'A' left 
'D' right 
'S' tofire 
'space bar' for shields 


You have shields to protect your spaceship, however these use a lot of 
fuel and only last for a couple of seconds. 


While shielded your craft will be a grey colour. 
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PROGRAM STRUCTURE 
INITIALIZATION 

SET UP DISPLAY 

GET KEYBOARD CHARACTER 
UPDATE SCORE 

TEST WHICH KEY PRESSED 
FIRE PLAYER'S MISSILES 
SHIELD CONTROL 

UPDATE FUEL 

RANDOM DIRECTION OF COMPUTER 
COMPUTER FIRES MISSILE 
TEST IF PLAYER IS HIT 
MISSILES COLLIDE 

PLAYER EXPLODES 

PLAYER HITS SHIP 

DATA 


VARIABLES 
PE = LAST KEYSTROKE 
F = FUEL 


SH = INCREMENT FOR PLAYER'S MISSILE 
Р = HORIZONTAL POSITION OF PLAYER 
YP = VERTICAL POSITION OF PLAYER 


LINES 


13— 18 

20 — 23, 900 — 930 
24 

25 

26 — 30 

31— 39, 950 — 970 
40 

42 — 49 

800 — 840 

21, 200 — 210 
9000 — 9140 


SY — VERTICAL POSITION OF PLAYER'S MISSILE 
SX = HORIZONTAL POSITION OF PLAYER'S MISSILE 


X = HORIZONTAL POSITION OF COMPUTER 
Y = VERTICAL POSITION OF COMPUTER 


EX = HORIZONTAL POSITION OF COMPUTER'S MISSILE 
EY = VERTICAL POSITION OF COMPUTER'S MISSILE 
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EARTH 


о 


DEFENCE 


POKE 55, 255 : POKE 56,47 $ PRINT "ЕО" 
+ POKE 53281,0 + POKE 53280,0 + V = 53248 
5 CO = 54272 
SM = 0 5 FOR J = 1 ТО 30 
5 I = RND ( 1 ) 8 1000 + 55296 + POKE 1,1 
5 POKE I - С0,46 * NEXT 
POKE V + 21,31 2 POKE 2040,192 + POKE 2041,193 
5 POKE 2042,194 : POKE 2043,195 + POKE 2044,196 
POKE V + 39,8 + POKE V + 40,3 + POKE V + 41,7 
s POKE V + 42,10 + POKE V + 43,5 
FOR I = O TO 318 + READ 8 + POKE 12288 + 1,0 


5 NEXT + POKE 54296,1 + POKE 54278, 240 
* POKE 54276,129 

P = 120 * ҮР = 200 + POKE V,P + POKE V 4 1,YP 
5 X = 50 + INT ( RND ( ) t 1800 + Y = 0 


POKE V + 2,X : POKE V + 3,Y 
PE = PEEK ( V + 30 ) < F = Оз POKE 54272,108 
+ POKE 54273,223 
PRINT " ЕЗ [e] Wl (e EE BE EE BE BE Gå ISISCORE = " 
+ POKE Y + 4,200 


PRINT "Е [а [е] [eq [ወ] (e) [e] [ሀባ [e3 [e] WE BE EE i24 154 |: (e BEL: 
መ BEL: [e] WE [ ІІ ге BE г: C | Li 9 | Ú (е 
BRL: (e | L መ] | | : መጦ ዘዘ[፡ ር0 | [| (e | HE 

РЕ = PEEK ( 197 ) 5 F = Е 01 = POKE V + 39,8 
5 ፲፻ HH < > O THEN POKE 3 

PRINT " Б መባ [a (ей 


[el в 
POKE 55615 + INT ( የ ) % 40, 
IF PE = 10 AND P > 

< 


F = F + .01 


IF PE = 9 AND ҮР > 175 THEN YP = YP — 5 
5 F =F + .01 
IF PE = 23 AND YP < 230 THEN YP = YP + 5 
5 F =F + .01 
IF PE = 13 AND SH = O THEN GOSUB 900 
IF PE 60 AND HH = © THEN HH = 1 >: F =F + 1 


IF SH = O THEN 24 
= 1 ТО 2 5 SY = SY — SH ፥ POKE V + 5,SY 
IF PEEK ( V + 30 ) = 6 THEN GOSUB 200 
IF SY < 60 THEN SY = O * 8H = О * SX = 150 
5 POKE V + 5,0 
NEXT 
IF HH < > O THEN HH = HH 
5 IF HH = 10 THEN HH = 
POKE V,P + POKE V + 1,YP 


1 


oo + 


IF F > 15 THEN 100 


IF RND ( 1 ) < .1 
THEN RN = INT C RND ( 1 ) ቁ 5-1) 
5 IF RN = O AND RND ( 1 ) < .1 THEN 26 


IF X > 239 THEN RN = — 1 


X = X + ክክ 8 4 ፥ IF X < 50 THEN RN = 1 
Y = Y + 4 5 IF Y > 235 THEN Y = O 

5 X = оо + INT (C RND ( 1) ቁ 180 ) 

* SM = SM + 1 
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ЗО POKE V + 2,X 5 POKE V + 3,Y 
31 IF EY = O AND RND ( 1 ) < .1 AND Y < 220 
THEN EY = Y + 20 
5 EX = X + POKE V + 6,X 5 GOSUB 950 
32 IF EY = O THEN GOTO 10 
35 FOR I = 1 TO 2 + EY = EY + 6 = POKE V + 7,EY 
5 POKE V + 6,EX 
36 IF RND (1) < .2 
THEN EX = EX + ( (EX >Р ) - (EX < P) ) 85 
37 IF EX < 35 THEN EX = 35 
38 IF EX > 238 THEN EX = 238 
39 IF EY > 235 THEN EY = O + EX = O + POKE V + 7,EY 
+: POKE V + 6,EX + GOTO 10 
40 IF PEEK ( V + 30 ) = 9 AND HH = © THEN 300 
42 NEXT + IF PEEK ( V + 30 ) < > 12 THEN 10 
43 POKE 54275,0 + POKE 54272,0 + POKE 54296,5 
s FOR I = 30 TO 1 STEP - 1 + POKE 54273,1 
5 NEXT 
44 POKE 54296, 1 
46 POKE V + 5,0 


+: POKE 54273,223 + POKE 54272, 108 
POKE V + 7,0 = POKE V + B,EX 


5 POKE V + 9,EY 

47 FOR I = 1 TO 100 + NEXT 

48 EX = 50 + EY = О 5 SY = 0%: SX = 0 5 SH = O 
5 POKE V + 6,0 * POKE V + 9,0 


4? GOTO 1O 
100 GOSUB 800 
110 PRINT "KZ A YOU? VE „RUN „OUT „OF a ENERGY!" 
120 PRINT " (el (el [el GĦHARD , LUCK, a WELL 4 DONE „ 
FOR , SURVIVING , FOR , 50 , LONG!" 
150 PRINT " E la (а (а [e] [ወ] (a [e] [e] (a [e [е] [ed (A [el [ወበ [e] 


a ———— —— J — ——— n V A mmm — — ——— ————— — —— 
160 PRINT "Те [ODO , YOU 4, WANT . ANOTHER , GAME?" 
170 GET A$ = IF A$ = "Y" THEN RUN 


180 IF A$ « > "N" THEN 170 
190 PRINT " ኪ (71 BYE" 
195 END 
200 POKE 54272,0 + POKE 54294,10 
5 FOR I = 50 TO 1 STEP - 1.5 + POKE 54273,1 
* NEXT 
201 POKE 54296,1 + POKE 54273,223 + POKE 54272, 108 
202 POKE V + 2,0 = POKE V + 3,0 + POKE V + B,X 
5 POKE V + 9,Y 
205 S = 5 + 10 + IF Y = SY THEN S = S + 40 
206 FOR Z = 1 TO 100 + NEXT ፥ POKE V + 8,0 
s POKE V 4 9,0 
210 SH = 0 + SY = O + SX = O + Y = О + RETURN 
300 GOSUB 800 
310 PRINT "(YOU . GOT „HIT „BY „AN „ENEMY , MISSILE! !" 
315 PRINT " ፳፪ [el (НАВО , LINES!" 
320 PRINT " [el ሀበ EJSCORE: "5 S 
325 PRINT "ENERGY , UNITS , USED"; INT (СЕ) 
330 PRINT " ЕМЕМҮ . CRAFT , МОТ . DESTROYED"; SM 
340 PRINT "(el [el KENOT , BAD!" 
350 GOTO 150 
800 FOR I = 1 TO 7 = POKE V + 


1,0 + NEXT 
801 POKE 54273,0 + POKE 54272,0 : 


POKE 54276,0 


129 


805 POKE 54296,15 + POKE 54276,129 
810 POKE V + 8,P + POKE V + 9,YP 
820 FOR I = 50 TO 1 STEP - 1 + POKE 54273,1 * NEXT 
2 POKE 54275,0 + POKE 54272,0 + POKE 54296, 1 
830 POKE V + 8,0 + POKE V + 9,0 
840 RETURN 
900 POKE 53280,2 + 
+ POKE V + 4, 
910 POKE 54273,0 + 
2 FOR I = О TO 150 STEP 3 
* NEXT 
920 POKE 54273,0 * POKE 54296,1 
930 RETURN 
950 POKE 54273,0 + POKE 54272,0 + POKE 54276,0 
+: POKE 54276,55 
960 POKE 54273,50 + FOR ZX = 1 TO 50 * NEXT 
+ POKE 54276,129 + POKE 54273,233 
5 POKE 54272,108 
970 RETURN 
9000 DATA 0,0,0,0,8,0,0,28,0,0,28,0,0,62,0,0,127,0, 
0,127,0,0,127,0,0,127,0,2 
9010 DATA 127,32,2,28,32,7,28,112,2,62,32,6,255, 
176,7,235,240,7,235,240,15,255 
9020 DATA 248,15,62,120,28,28,60,24,0,12,0,0,0,99 
9030 DATA 0,130,0,64,130,4,112,214,28,120,254,60, 
124,124,124,62,56,248,31,255 
9040 DATA 240,15,255,224,7,255,192,1,255,0,0,254,0, 
12, 108, 96, &, 108, 192, 7, 255, 192 
9050 DATA 3,255, 128, 1, 255, 0, 0, 254,0,0,56,0,0,16,0,0, 
16,0,0,16,0,99 
9060 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0,0,0,0,2,0 
9070 DATA 32,7,0,112,15,128,248,31,193,252,26, 
193,172,18,65,36,2,0,32,0,0,0 
9080 DATA 0,0,0,2,0,32,99 
9090 DATA 0,0,0,0,0,0,0,0,0,0,1,215,0,0,254,0,0, 
254,0,0,124,0,0,16,0,0 
9100 DATA 16,0,0,16,0,0,124,0,0,56,0,0,16,0,0,16, 
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
9110 DATA 0,0,0,0,0,0,99 
9120 DATA 3,12,0,0,3,0,192,192,195,3,204,192,12,3, 
12,0,12,48,0,51,3,48,51,0 
9130 DATA 3,12,0,0,3,0, 192, 192,195, 3, 204, 192, 12, 
3,12,0,12,48,0,51, 3, 48,51,0 
9140 DATA 3,12,0,0, 3,0, 192, 192, 195, 5, 204, 195, 3, 204,195, 5, 204 


H = б + SX = Р 5 SY = YP 
X + F = F + .05 з POKE 53280,0 
ОКЕ 54272,0 : POKE 54296,10 

5 POKE 54273, I 


TM 
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46-2818 
47 =964 


118=2402 
1-6-4618 
158-3033 
1680-2283 
1178-1263 
120-1125 
130-673 

185-123 

cAØ=3518 
201=2025 
ene=2616 
2Ø5=2 122 
206=2345 
210=13968 
300-3028 

314@=2934 
315-1255 


da 
© 
L 

ርዐ 
m 
n^ 


сә 
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310=3900 
320=1187 


IJED-3985 
270=143 
SAØØ=3986 
3Ø14=4328 
3420-2290 
3070=4 196 
3140-4557? 
20580=3223 
3060-4317 
93070-3864 
3838 =926 
I9994=3439 
3100-4456 
3118-863 
3120=3912 
3138-3812 
3148=2875 


TOTAL- 244252 


Jelly Maze 


How may points can you get before the jellv creature kills you? 


There are 5 Power Pills in the maze, eat one of these and you will turn 
blue. When you are blue you can eat the jelly creature, but be careful you 
will not remain blue for longer than a few seconds. 


You gain 1 point for moving, 100 points for eating a Power Pill and 500 
points for eating a jelly creature. If you eat one, another will apear. 


Your controls are: 
W up 
X down 
'A' left 
'D' right 
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PROGRAM STRUCTURE 
INITIALIZATION 

DISPLAV SET-UP 

GET KEVBOARD CHARACTER 
DISPLAV PRESENT SCORE 
UPDATE POSITION OF PLAVER 
TEST FOR PLAVER COLLISION 
TAKE ACTION ON COLLISION 
DISPLAY PLAYER AT NEW POSITION 
MOVE JELLY 

PLAYER EATS JELLY 

JELLY EATS PLAYER 

PLAYER EATS POWER PILL 


DATA 


VARIABLES 
SC = SCREEN REFERENCE POINT 


X1 = HORIZONTAL POSITION OF PLAYER 
V1 = VERTICAL POSITION OF PLAYER 


DM = ACTUAL POSITION OF PLAYER 


DC = ACTUAL POSITION OF COMPUTER 


RELATIVE TO SC 
D = DIRECTION OF PLAYER 
S = PLAYER'S SCORE 
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LINES 

0—8 

9 — 49 

51 

51 

52 — 70 

71 

72— 85 
86 — 93 

95 — 150 
1000 — 1040 
2000 — 2010 
5000 — 5010 


9000 — 9090 


JELLY 


© 


42 


45 


MAZE 


POKE 55,255 3 POKE 56,47 + PRINT " 2" 
+ POKE 53280,2 + POKE 53281,0 

V = 53248 + POKE V + 22,216 + POKE V + 24,28 

POKE V + 34,7 = POKE V + 35,5 

FOR I = 12288 TO 12471 + READ @ + POKE 1,0 
5 NEXT 

FOR I = 12544 TO 12551 + POKE 1,0 * NEXT 

FOR I = 12672 TO 12751 + READ Ü + POKE 1,Q + NEXT 

POKE 54294,10 + POKE 54276,0 = POKE 54276,33 
+ POKE 54278, 240 

POKE 54273,0 5 POKE 54272,0 

SC = 1024 * CS = 55296 * X = 4: Y=4: D = 1 
5 A= 15 > B= 20 Ар = 1 + DI = 3 

PRINT " EJIIIIIIGNNNNNF IIIIIIIIGNNNNF IIIIIIIIIIIII"; 

PRINT "IIIIIG aà å a a a a aFIIIIIIG a 4 
a FIIIIIIIIIIII"; 

PRINT. 111113 z a a a a w < a „ЕБ så & a a 
a a aFIIIIIIIIIII"5 

PRINT "IGLM a a a aJK å a a a aFIIG å a a „HE 1 
a a aFIIIIIIIIIT";3 

PRINT "Ga a a a a a XLM- A a a a 
HIIE, a a AFIIIIIIIII"; 

PRINT "Poz å a a 6 AC A G A 
a ጨ 116. LD, ሬጨዮየ11111111"'ን 

PRINT SP a sæ ыза асы 6 dA A QS اخ‎ DASS sau ፌሬ 
a a АРО а a a a 4 a aFIIIIIIT"5 

PRINT "UP 2 4 a а HE a 2 X moż w э å cdd 2 
x x“ <“ <“ „> a a a a *FIIIIII"; 

PRINT "P, 2 . HGFE a a a SK. a ма БІЛЕ 2 x 
ыы ala a AL e РОТ 

PRINT "P, a „РЕНО a a „ЕМА. ኢሬ. „HIGFIE å 2 a a 
aJK a a a aa a FIIII"; 

PRINT "P, a 2 „FG. PARP" эъ ж ot a a FIEHIO  ሔ 
a a HIIP a a2 a a ні"; 

PRINT "P a ሔ ^ a a а a ас 46: Sak 2 w A Ре 
aDa LFIIP 4 a a LHIIIII"; 

PRINT “Eu a a 


dæ a ж 


ж ae 2 HIIIIII"; 

PRINT "IE a 2 VEE | Ж کے‎ jal Mar 8 Caco ар. Sige ES WM: 6. 5% 
PORN: a a a HIIIIIII"3 

PRINT "IIE 4 4 a a alMa à 4 à à ሬ ሬ ሬ ሬ ሬ + <+ A 
d x x x a < < <*HIIIIIIII"; 

PRINT 'IIIE, å a a a oou w de d aed ЗАТ a „ЧЕ 
AC cw a НЕ & LFIIIIIIII"s 

PRINT "IIIIE a å a a a a a a Ш>ш-АаЛП ы x w E 
Да: ær a FG ж LFIIIIIII"; 

PRINT "IIIIIE . o S ld Vus Cu. dabo kj 0.2, a. AD uA, UA Ж! XE 
м м x „> w å 4 Do _FIIIIII";5 

PRINT “IIIIIIE aà Dz НЕ, a à a a a x a w < 
a b U a що А а а UP 644113 

PRINT "GNNNNFIP a a a aFG a ል a a a a „MHP å å a 
a a dE usce àa FILIIS 

PRINT "P a a a a «FP да a a w а A a < x а < „ЕР 
a a a Di Z PO A gee ж M a FIII"3 


ሕዱ hh RH ж 


ነ) ነ P 


ጨዉ 
ጨ 
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PRINT "På ል a a „HP a a ሐ a a ል 


ሕ de 
a a. a ሕ a a a А ^ ሕ da ሒ ж ሒ ж a FII"; 


PRINT “EOOOOHIP „ „ ሬ a HE, 
аы a sk. ж a P ж ж 4 کے‎ 4 a FI"; 
PRINT 'IIIIIIIEQOQOHIIEQOOHI IE000000000000000HI " 3 
FOR I = 960 TO 999 + POKE CS + 1,2 
5 POKE SC + 1,9 * NEXT 5 M = SC + X + Y £ 40 
5 MC = CS + X + Y £ 40 
POKE MC,4 + POKE MC + 1,4 * POKE МС + 40,4 
+ POKE MC + 41,4 
POKE M,17 + POKE M + 1,18 = POKE M + 40,19 
: POKE М + 41,20 
FOR Z = 1 TO DI 


de ሕ då a 


de 


м. 


PE = PEEK ( 197 › * PRINT "Ы (el [e] [e] ሀባ (e) [e] (а (ей [ሀባ 


{ей (e) [e] [е] (a [а (ей [e] (а (а [e Ej 14 "5 

M = SC + X + Y 40 = X1 = X 5 YL = Y 

IF PE < > 9 AND PE < > 23 AND PE < > 10 
AND PE < > 18 THEN 95 

IF PE = 9 THEN Yi = Yi - 1 

IF PE = 23 THEN Y1 Y1 + 1 

IF PE = 10 THEN Xi X1 — 1 

WHERS = 'MAN' 

IF PE = 18 THEN Xi = X1 + 1 

DM = SC + X1 + VI % 40 5 PI = PEEK ( DM ) 


5 P2 = PEEK ( DM + 1 ) PS = PEEK ( DM + 4O ) 
5 P4 = PEEK ( DM + 41 ) 

IF P1 = 4 THEN GOTO 5000 

IF Р2 = 4 THEN GOTO 5000 

IF P3 = 4 THEN GOTO 5000 

IF PA — 4 THEN GOTO 5000 

IF P1 < 4 THEN 1000 

IF P2 « 4 THEN 1000 

IF P3 « 4 THEN 1000 

IF P4 « 4 THEN 1000 

IF P1 < 17 THEN POKE 54276,0 ፥ POKE 54276,33 
+ POKE 54273,20 + GOTO 95 

IF P2 < 17 THEN POKE 54276,0 : POKE 54276,33 


+: POKE 54275,20 + GOTO 95 

IF P3 < 17 THEN POKE 54276,0 + POKE 54276,33 
: POKE 54273,20 + GOTO 95 

IF P4 < 17 THEN POKE 54276,0 + POKE 54276,33 
s POKE 54273,20 + GOTO 95 

DC = CS + X1 + VI ፄ 40 = POKE M,32 

POKE M + 1,32 : POKE M + 40,32 

POKE M + 41,32 

IF AD = 1 THEN POKE DC,4 3 POKE DC + 1,4 

POKE DC + 40,4 + POKE DC + 41,4 


^ 
т 
^ 
ጭ 


IF AD = — 1 THEN POKE DC,3 5 POKE DC + 1,5 
+ POKE DC + 40,3 = POKE DC + 41,3 

S = 5 + 1 

POKE DM,17 = POKE DM + 1,18 


IF D = 1 THEN POKE DM + 40,19 = POKE DM + 41,20 
IF D = ፦ 1 THEN POKE DM + 40,21 + POKE DM + 41,22 
X = ХІ: Y= ሃኛ1 * D = — D 
POKE 54275,0 + NEXT = Al = ñ + Bl = B 

5 M = БС + ñ + ВЕ 40 
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96 


98 


99 


IF RND ( 1) < .8 THEN Al = Al + ( 
- ( AL < X) ) ¥ AD 
DM = SC + Al + 81 $ 40 $ P1 = PEEK 


4 PEEK ( DM + 41 ) 


IF ( P1 = 32 OR P1 < 5 ) ñND ( P2 = 


AND ( P3 = 32 OR PS < ) 
AND ( PA = 32 OR P4 < 

IF А1 < > ñ AND RND ( 1 
INT C RND ( 1 ) $ 3) 

WHER$ = "JELLY" 

IF RND ( 1 ) < .8 THEN B1 
— ( B1 < Y ) ) * ñD 

DM = SC + ñ + B1 $ 40 * РІ = PEEK 

P2 = PEEK (DM + 1 ) $ 

P4 = PEEK ( DM + 41 ) 

IF P1 > 16 ñND P1 32 THEN 1000 

IF P2 > 16 AND P2 32 THEN 1000 

IF P3 > 16 AND P3 32 THEN 1000 

IF P4 > 16 AND P4 32 THEN 1000 

IF P1 > 255 OR P2 
THEN 1000 

IF ( P1 = 32 OR P1 < Š ) 


THEN A 


| = 00 


5 GOTO 


B1 + ( 


v `A A A A 


AND ( P2 = 32 QR P2 < 5 ) AND 
( P3 = 32 OR P3 < 5 ) AND 
( PA = 32 OR P4 < 5 ) THEN В = Bl 
IF Bi < > B THEN 81 = B * Bl = B1 + 
INT ( RND ( 1) £ 3) — 1 + GOTO 
DM = SC + A + B 8 40 : DC = CS + а 
POKE DC,14 + POKE DC + 1,14 ፥ሩ POKE 
5 POKE DC + 41,14 
POKE M,32 + POKE M + 1,32 + POKE М 


5 POKE М + 41,32 


( ፅ13 > X ) 


( DM ) 


32 OR P2 < 5) 


= ñ1 


) 
< .9 THEN Al = ñ 5 Al 
1 
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( B1 > Y ) 


( DM ) 
P3 = PEEK ( DM + 40 


255 OR PS > 255 OR F4 > 255 


105 
+ 8 * 40 
DC + 40,14 


+ 40,32 


POKE DM,O : POKE DM + 1,1 = POKE DM + 40,2 


5 POKE DM + 41,3 
IF NU < > O THEN NU = NU 


+ 1 
> IF NU = 20 THEN NU = O = 


AD = 1 


IF RND ( 1) < .03 AND DI > 1 THEN DI = DI - 1 
IF В = 81 OR A = Al THEN POKE 54276,0 


+ POKE 54276,55 s FOR I = 0 TO 5 
2 POKE 54273,1 + NEXT 

POKE 54273,0 

GOTO 50 

IF AD = 1 THEN 2000 

POKE 54276,0 : POKE 54276,33 + FOR 
STEP 4 : FOR J = 1 TO 20 = NEXT 

POKE 54275,1 * NEXT + POKE 54273,0 

М = SC + X + Y 40 * DM = SC + XI 

POKE M,32 + POKE M + 1,32 + POKE M 
+ POKE M + 41,32 

POKE DM,32 + POKE DM + 1,32 + POKE 
+ POKE DM + 41,32 

М = SC + А + B 8 40 = DM = SC + Al 

POKE M,32 + POKE M + 1,32 5 POKE М 
+s POKE M + 41,32 

POKE DM,32 : POKE DM + 1,32 + POKE 
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STEP .5 


I = о TO 150 
+ VI ቾ 40 

+ 40,32 

DM + 40,32 


+ Бі ж 40 
+ 40,32 


DM + 40,32 


P2 = PEEK ( DM + 1 ) $ P3 = PEEK ( DM + 40) 
P = 


) 


1020 
1035 
1040 
2000 
2001 
2002 
2003 
2005 


2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
5000 
5002 


5005 
5010 
9000 
9010 


9015 
9016 


9017 
9018 
9019 
9020 
9022 
9024 
9025 
9030 
9040 
9050 
9060 
9070 
9080 


9090 


5 POKE DM + 41,32 

X = 4: Y =4 А = 15 В = 20 

6 = 8 + 500 5 AD = 1 

GOTO 50 

POKE 54276,0 + POKE 54276,129 + POKE 54273,10 


FOR I = 1 TO 700 : NEXT 

FOR I = 240 TO O STEP — 2 5 POKE 54273,1 + NEXT 

POKE 54273,0 

POKE V + 24,20 + PRINT " [2 ERHARD _ LINES, THE 
4 JELLY 4 CAUGHT 4 YOU!" 

PRINT * ርበ (61 14 УОП „ SCORED"S"POINTS. ሀ“ 

IF 5 < 200 THEN PRINT "b HA, HA! " 

IF S > 199 AND 5 < 400 THEN PRINT " МОТ , BAD." 

IF S > 399 AND S < 800 THEN PRINT " ISUPER!" 

IF S > 799 THEN PRINT " EJAMAZING! " 

PRINT " [e] [e] GJANOTHER , GO?" 

GET AS + IF AS = "Y" THEN RUN 

IF A$ < > "М" THEN 2070 

PRINT "A BYE!" 

END 

S = 8 + 100 + AD=-1 š NU = 1 

POKE 54276,0 + POKE 54276,17 + FOR I = 10 TO 50 
$ POKE 54273,1 $ NEXT 

POKE 54273,0 

GOTO 86 

DATA 32,131,47,55,63,63,255,254,8,8,224, 
112,240,240,188,172 

DATA 162,130,136,130,34,34,128,128,44,8,8, 
32,32,8,131,128 

DATA 0,0,4,29,63,29,4,0 

DATA 64,64,208,208,244,244,253,253, 
127,127,31,31,7,7,1,1 

DATA 253,253,244,244,208,208,64,64,1, 
1,7,7,31,31,127,127 

DATA 255,255,255,255,255,255,255,255,0, 
0,0,1,7,31,31,127 

DATA 0,0,0,64, 208, 244, 244, 253 

DATA 127,31,31,7,1,0,0,0,253,244,244,208,64,0,0,0 

DATA 85,85,0,0,0,0,0,0,0,0,0,0,0,0,85,85 

DATA 64,64,64,64,64,64,64,64 

DATA 1,3,3,1,1,7,13,25,128,192,192, 
128, 128,226,182, 156 

DATA 25,49,3,6,12,12,6,30,128,12B,192,96, 
56,24,48,0 

DATA 1,3,7,12,24,48,24,48,128,128,192, 
192, 96, 48, 48, 240 : 

DATA 0,60,102,102,102,102,102,60,0, 48, 
112,48,48,48,48,124 

DATA 0,60,102,6,12,48,96,126,0,60, 
102,6,28,6,102,60 

DATA 0,6,14,30,102,127,6,6,0,126,96, 
120,6,6,102,60 

DATA 0,60,102,96,124,102,102,40,0,126, 
102,6,12,24,24,24 

DATA 0,60,102,102,60,102,102,60,0,60, 
102,102,62,6,102,60 
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CHEXSUM 


2=1332 
3=2183 
4=1766 
2=2698 
:=ሯሮይ1ሯ 
የ=1167 
8=4383 
393-4017 
19153513 
1223354 
14-3334 
15-2186 
1S=2963 
29=2т93 
=г=гга? 
29529485 
ሮ==ፎሟመሟ=2 
2E=2988 
EG =2942 
sA=2771 
2ሯ =2817 
34=2931 
356-3113 
2-323083 
398-2885 
4qa-2888 
JE =3Ø52 
J5=2767 
44 =2448 
ጓዓ==ፎ7ያሯ1 
46 =40ӣ2 
Jr=S5S7AØ7 
J5=2737 
J9=2667 
5 


ርቨ 
nm - c 
ዚዙ ዘ 
TD в] 


(Л (Л i 


ዘ 

ርህ 
(Л 
+ 
ርዕ 


do 
m 
ዘ 


= m [23 © 
rm tO to 
n H || 
JI W 
e 
0 
35 


ሁራ ትሙ к» ке ка ке 1 рз ኑሩ en 
ኡሙ 
ዘ 
ርበ 
0 
m 
Lo 


se=1427 
6A=1472 
ፎ==14ዓ63 


ጠ 
(Th 
lI 
4 


4“ ل“ 
1“ 


1 
I 
II 


ml 
ш E 
iD 


ርዐ ú 
ng à 

II 

bb 

— po 

ርዐ ርዕ 


e 
لرا‎ 
+ 


iD (Ü 
m 
l! 
ርህ 
ርህ 
го 


1 
1 
1 
1 
1-583883 
72=1291 
73=1291 
r4=1291 
r5=1295 
Ye=901 
7y=9A1 
የ=5=3፻1 
Ya=985 
=2=3221 
=:35=23ሮ2 1 
24=222 1 
25=3225 
26=4 186 
S7=3423 
SS=3638 
a9=37Y1 
388-1233 
91=2226 
32=2 
1 
2 
3. 
S&=5958 
39=52863 
aA=44 72 
п1-1аг4 
A4=3341 
A25932 
SB 


~J 
ዘ 

- к. ጮ кә ርበ 
ІП ር 
(0 ር 


(Л (Л (Л ርባ ር 
LO 
e 


D 
ቴ 


115=3731 
129=2692 
120=2929 
125=2667 
149 =2746 
145=3456 
146-2347 
147-4533 
148-588 
150-476 
іааа-заз 
1881-3434 
1802-1365 
1804-2783 
1445-2667? 
| 866=28=2 
1818-2734 
1815-8667 
1016-2953 
1828-1582 
1635-1137 
пайзатв 
AAB=1963 
364 


"mui 
m 
po 
lI 


ru 
CO L 


аз 9 
000 
A (y TU 
T H 
b ІЛ TU 
m 3 
+ (W 

e 


ілімі e 
= a 
[ | 


мо 
co WwW TU 


3 
ዘ 
w 


e ec m 
A rs 

II H 

[U TU me н 
т о ቱሩ 
ІЛ co መ 
со b 19 


a 
m 
2000 
II 
pab ኑራ р» кә 
+ 


a 
m.» 
ህ 


gu - ር 


e 
| 


ro fo ru ru ru ru ru fo ru ru TO fo [D = 
e 


nå 3 (3 
2 
IS ር 
|| 
4) 
Jå 


e 
መ 
гә ® መ 
II II 
س لرا‎ IN 
"JI TU Me г н 


ІЛ TU ro 
ru B s 
о MØ кє i 
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5014A=48 

30904=3131 
3010=3018 
3015-1143 


D 
= A 
ርዐ 


ዘ 
TU [Ú wo 
(Ü 
w U MO ሥ ርህ ГО 


ID È 


1 
1 
16 
017=2954 
SAIS=2938 
9913= 1444 
зага =25024 
3a22=-2079 
3824-1418 
30235=2852 
3 


у if 
a 


ш 
a 
20 
l Il 
ro የህ 
q 
0 
e 


со 
Bi 
ID 


AIA 
3064=2686E 
30ra=2591 
34080-2881 
3498 =2322 


Dark Star 


Test your skills against the enemy and the clock! 


The Death Star will obliterate your home planet, when itcomes into range 
from behind its moon, using the immense power of its space gun. Before 
this happens you will attempt to take as many attacking enemy fighters 
with you before you are shot down or they shoot your home planet. 


You fly your X wing fighter along the trench on the Death Star engaging 
the enemy in mortal combat, using the 'Z' and 'C' keys to move left and 
right and 'M' to fire. 


Straight Shooting! 


139 


PROGRAM STRUCTURE 
INITIALIZATION 

ROTATE COLOURS, READ KEY 

MOVE PLAYER'S SHIP (TWO SPRITES) 
MOVE PLANET 

CREATE NEW ALIEN SHIP 

MOVE ALIEN SHIP 

ALIEN SHIP FIRES 

PLAYER FIRES 

SETUP SHOT SPRITE 


KEEP MOVING SHOT, CHECKING IF IT HITS 
ALIEN SHIP 


TURN OFF SHOT SPRITE, IF HIT 
INCREMENTS SCORE AND BLOW UP 
ALIEN ON SCREEN 


TIME TO BLOW UP PLANET? 
IF SO THEN BLOW IT UP AND END GAME 


GO TO START (150) 
ROTATE COLOURS, (ANIMATE DEATH STAR) 


GAME OVER, PRINT SCORE, 
ASK IF WANT NEW GAME 


DATA 
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LINES 


0-- 140 
150 
155 — 167 
170 — 175 
180 — 185 
190 — 215 
217 — 240 
250 

251 — 260 
265 

270— 297 
300 — 325 
350 
500 — 505 
1000 — 1035 


10000 — 20105 


VARIABLES 

V = VIDEO CHIP 

CO = DIFFERENCE BETWEEN VIDEO AND SCREEN MEMORY 
I, A, = TEMPORARIES 

B, C, M1, M2 = COLOUR VALUES 

KB = LOCATION TO GET KEY PRESSED FROM 
PL = PLANET POSITION 

SC = SCORE 

К = KEY PRESSED 

X = POSITION OF PLAVER' SHIP 

FT = FLAG TO INDICATE IF SHOOTING OR NOT 

Р = VALUE OF SPRITE HIGH POSITION REGISTER 
X1 = POSITION OF ALIEN SHIP 

DE = VALUE OF COLLISION REGISTER 


| T TI [TI RR 
1114111111! :;- EB: 
l | | ፪ Б 4 ON 

ud 


SPRITE 


SPRITE 


SPRITE 
MOON 
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DARK STAR 


O POKE 55,255 + POKE 56,47 : V = 53248 
5 POKE V + 32,0 s POKE V + 33,5 3 CO = 54272 
$ POKE 54296,15 
1 POKE 54278,128 + POKE 54277,240 + POKE 54276,0 
s POKE 54276,129 
2 POKE V + 34,6 = POKE V + 35,5 + POKE 2040, 208 
$ POKE 2041,209 + POKE 2044,210 + POKE V + 43,11 
3 POKE V + 2045,212 $ POKE 54273,4 + POKE 54272, 75 
s POKE 2045,213 
5 FOR І = 12544 TO 12551 + POKE 1,0 = NEXT 
5 FOR I = 12288 TO 12367 $ READ A ፥ POKE 1,A 
5 NEXT 
6 POKE V + 22, PEEK ( V + 22 ) DR 16 
s POKE V + 24,28 : POKE V + 39,14 
5 POKE V + 40,14 
В FOR I = 13312 TO 13759 * READ A + POKE I,A 
5 NEXT + POKE V + 37,2 $ POKE V + 38,8 
9 POKE V + 28,31 + POKE V,160 + POKE V + 1,220 
5 POKE V + 2,184 : POKE V + 3,220 
10 PRINT " 53 ጩ 2 [e] ሀበ (ӨЛВВВВВВВВВВВВВВВВЕӘІ ӘІӘӘНВВВВ 
BBBBBBBBBBBB" ; 
15 PRINT "AAAAAAAAAAAAAAADB3391 DABEAAARAARAAAAAARAR" ; 
20 PRINT "AAAAAAAAAAAAAADAB I I 99 I DBBAGAAAAAAAAAAAAAA" 5 
25 PRINT " å ሬ å å å å ል A A A a a a CAABBBBBBBBAAF 


a a a „С a AAAAARAARAAAA 
P. ow qs ы SEA 

35 PRINT "BBBBBBBBBBBE „ 4 AAAAAAAAAAAA „ 4 HBBBBBBB 
BBBB" 3 

40 PRINT "BBBBBBBBBBEB „ a å å å 2 2 4 a A 4 4 4 a 
a ል BHBBBBBBBBBB" 3 

45 PRINT "BBBBBBBBBEBB „ a å a å å 2 a 2 a 4 A a A 
a a BBHBBBBBBBBB" 3 

JO PRINT "AAAAAAAADBBB „ a å å a 2 2 A A A A A 2 a 
a a BBBGAAAAAAAA" ነ 

55 PRINT "AAAAAAADABBBBBBBBBBBBBEBBBBBBBBAGAAAAAAR" 3 

60 PRINT "AAAAAADAABBBBBBBBBBBBBBBBBBBBBBAAGAAAAAA" 5 

бъ PRINT "AAAAADAAABBBBBBBBBBBBBBBBBBBBBRAAAGAAAAA"; 

70 PRINT", a a a CAAAABBBBBBBBBBBBBBBBBBBBBBAAAAF 


“ 
^ ^ ажа Ü 


75 PRINT " å a „С a АААААААААААААААААААААААААААААА 


LL] 


во PRINT", „СФ. ሬል AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 


LU 
A cab - 


85 PRINT " AC å a 4 АААААААААААААААААААААААААААААА 


можа moy 


90 PRINT "E, å 4 a AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
^ + ሔ a H" 3 

95 PRINT "Ba å a 4 АААААААААААААААААААААААААААААА 
de a de ሔ B" 5 


ж 

B" 
^ ^ a ጨ ሔ ሔ ሔ ጨ ሔ ሔ ጨ a p ^ ж ж ж. a a 

ж 


a 
ሐ а bh bh å å а а. A а å мж å å å а å ажа a 9 
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110 
115 


120 


121 


125 


130 
140 


150 
155 


157 
160 


162 
165 


167 
170 
172 
175 


180 
185 


190 


195 


200 
205 
210 
215 
217 
218 
220 
222 


225 


230 


POKE 2023 + ር0,8 : POKE 2023,2 
FOR I = 1024 TO 1223 : POKE I + CO,8 + POKE 1,0 
5 ፲፻ RND (1 ) > .9 THEN POKE 1,9 
NEXT + POKE 2042,211 + POKE V + 41,11 
+ POKE V + 23,36 + POKE V + 29,4 
5 POKE V + 4,24 + POKE V + 5,50 
FOR 1 = 1224 TO 2047 s POKE CO + 1,8 + NEXT 
POKE V + 42,9 ፥ POKE V + 6,0 + POKE V + 7,60 
2 POKE 2043,212 
POKE V + 21,15 
B = 5 5 Мі = 6 5 M2 = 5 + KB = 197 : X = 160 
5 PL = O 5 FI = Оз SC = O 
GOSUB 500 : K = PEEK ( KB ) 
=X+ (K = 12 ) ፄዳ - (K = 20 ) # 4 
5 IFX < 64 THEN X = 64 


e | 


IF X > 260 THEN X = 260 
Р = PEEK ( V + 16 ) 
5 IF X > 255 THEN POKE V,X — 256 
5 POKE V + 16,P OR 1 * GOTO 145 
POKE V,X = POKE V + 16,P AND 254 
Р = PEEK ( V + 16.) 5 X = X + 24 
2 IF X > 255 THEN POKE V 4 2,X — 256 
5 POKE V + 16,P OR 2 5 GOTO 170 
POKE V + 2,X 5 POKE V + 16,P AND 253 


= 75 + IF FI THEN J = 1 
X = X - 24 + FOR I = 1 ТО J + NEXT 
5 PL = PL + „5 * IF PL > BO THEN PL = ВО 
POKE V + 6,PL $ IF FI > O THEN 190 
IF RND ( 1 ) < .9 THEN 250 
POKE V + 8,175 + POKE V + 9,90 
5 POKE V + 21, PEEK ( V + 21 ) OR 16 : FI = 1 
= PEEK ( V + 30 ) 
POKE V + 9, PEEK ( V + 9 ) + 4 
$ = PEEK ( V + ВО) 
2 IF PEEK ( V + 16 ) AND 16 THEN X1 = X1 + 256 
IF PEEK ( V + 9 ) > 234 
THEN POKE V + 21, PEEK ( V + 21 ) AND 239 
5 FI = 0 + GOTO 250 
Хі = X1 — 12 * Хі = X1 + X1 > X ) ż 2 
— ( X1 < xX) £ 2 * XI = X1 + 12 
IF X1 > 255 THEN POKE V + 8,X1 - 256 
s POKE V + 16, PEEK € V + 16 ) OR 16 <GOTO 210 
POKE V + 8,X1 
5 POKE V + 16, PEEK ( V + 16 ) AND 239 
IF PEEK ( V + 30 ) AND 16 THEN 1000 
IF RND ( 1) < .92 THEN 250 
POKE 54290,0 : POKE 54291,12 + POKE 54287,17 
+: POKE 54286,37 + POKE 54292,0 + POKE 54290,17 
IF X1 > 255 THEN POKE V + 10,X1 - 256 
+ POKE V + 16, PEEK ( V + 16 ) OR 32 = GOTO 225 
POKE V + 10,X1 
5 POKE V + 16, PEEK ( V + 16 ) AND 223 
POKE V + 11, PEEK ( V + 9 ) + 21 + POKE V + 44,8 
$ POKE V + 21, PEEK ( V + 21 ) OR 32 
+: DE = PEEK ( V + 30 ) 
DE = О + FOR J = PEEK ( V + 11 ) TO 250 STEP 4 
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1000 


s POKE V + 11,3 
2 IF PEEK ( V + 30 ) AND 32 THEN DE = 1 
$ J = 250 
NEXT J + IF DE THEN 1000 
POKE V + 21, PEEK ( V + 21 ) AND 223 
IF K < > 36 THEN 300 
POKE 54290,0 + POKE 54291,12 + POKE 54287, 137 
2 POKE 54286,43 + POKE 54292,0 + POKE 54290, 33 
X = X + 12 $ IF X > 255 THEN POKE V + 10,X - 256 
5 POKE V + 16, PEEK ( V + 16 ) OR 32 з GOTO 260 
POKE V + 10,X 
+ POKE V + 16, PEEK ( V + 16 ) AND 223 
POKE V + 11, PEEK ( V + 1 ) - 42 ፥ POKE V + 44,4 
5 POKE Y + 21, PEEK ( V + 21 ) OR 32 
5 DE = PEEK ( V + 30 ) 
DE = O + FOR J = PEEK ( V + 11 ) TO 70 STEP - 4 
POKE V + 11,J 
IF PEEK ( V + 30 ) AND 32 THEN DE = 1 
J = 70 
Js X = X - 12 
POKE V + 21, PEEK ( V + 21 ) ñND 223 
IF DE = O THEN 300 
SC = SC + 10 + FI = 0 
5 POKE V + 21, PEEK ( V + 21 ) AND 239 
POKE 54290,0 + POKE 54291,133 + POKE 54287,8 
+: POKE 54286,147 + POKE 54290,129 
POKE 2045,214 $ POKE V + 44,2 
+ POKE V + 21, PEEK ( V + 21 ) OR 32 
5 FOR I = 1 TO 100 s NEXT 
POKE 2045, 215 
5 POKE V + 21, PEEK ( V + 21 ) AND 223 
IF PL < 80 OR RND ( 1) < .9 THEN 350 
POKE 54290,0 + POKE 54291,12 + POKE 54287,137 
+ POKE 54286,43 : POKE 54292,0 + POKE 54290, 33 
POKE V + 44,1 2 POKE V + 10,PL = POKE V + 11,69 
2 POKE V + 23, PEEK ( V + 23 ) AND 223 
POKE V + 21, PEEK ( V + 21 ) OR 32 
5 FOR I = 1 TO 500 = NEXT 
POKE 54290,0 + POKE 54291,207 ፥ POKE 54287,8 
+ POKE 54286,147 s POKE 54290,129 
POKE V 4 21, PEEK ( V + 21 ) AND 247 
POKE V + 44,10 = POKE V + 11, PEEK ( V + 7 D 
e POKE 2045,214 
: POKE V + 23, PEEK ( V + 23 › OR 32 
POKE V + 29, PEEK ( V + 29 ) OR 32 
$ POKE V + 32, PEEK ( V + 33 ) 
$ FOR I = 1 TO 4000 * NEXT * POKE V + 32,0 
POKE Y + 29, PEEK ( V + 29 ) AND 223 
5 GOTO 1007 
GOTO 150 
С = М2 + M2 = 
POKE V 4 33,B 
+ RETURN 
POKE Y + 21, PEEK ( V + 21 ) AND 252 
$ POKE V + 10, PEEK ( V ) + 12 
$ POKE V + 11, PEEK (C V + 1) 


e € X + ሁ 4 
- 


MI + ዘ81=8 + B = C 
2 POKE V'+ 34,M1 $ POKE V + 35,M2 
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1002 POKE V. + 32,1 
1003 POKE 54290,0 + POKE 54291,207 + POKE 54287,8 
: POKE 54286,147 2 POKE 54290,129 
1005 POKE 2045,214 2 POKE V + 44,2 
5 POKE V + 21, PEEK ( V + 21 ) OR 32 
5 FOR I = 1 TO 4000 ፥ሩ NEXT 
1007 POKE V + 32,0 + POKE V + 33,6 
1010 POKE 2045,213 + POKE V + 21,0 
1015 POKE V + 24,20 + PRINT " Ü] m YOU „ SCORED";SC 
1020 PRINT ” [e] (e] (61 (91 [e] IMANOTHER , GAME?" 
1022 POKE 54276,0 + POKE 54290,0 + POKE 54273,0 
+ POKE 54272,0 + POKE 54287,0 : POKE 54286,0 
1025 GET A$ + IF A$ < > “Y” THEN 1030 
1027 POKE V + 24,28 + POKE 54275,4 : POKE 54272, 75 
$ POKE 54276,0 s POKE 54276,129 : GOTO 9 
1030 IF A$ < > "N" THEN 1025 
1035 POKE V + 22, PEEK ( V + 22 ) AND 239 + END 
10000 DATA 255, 255, 255, 255, 255, 255, 255, 255, 170, 170, 
170,170,170,170,170,170 
10005 DATA 85,85,85,85,85,85,85, 85 
10010 DATA 1,1,8,8,16,16,128,128,169,169,162,162,154, 
154,42, 42 
10015 DATA 86,86,81,81,101,101,21,21,64,64,32,32,4,4,2,2 
10020 DATA 106, 106, 138, 138, 166,166, 168, 168, 149, 149, 49, 
69,89, 89,84, 84 
10025 DATA 255, 255, 255, 239, 255, 255, 255, 255 
20000 DATA 0,0,3,0,0,3,0,0, 15, 0,0, 15,0, 0, 10, 0, 128, 10, 
2,0,11, 20,0, 11, 22,0,15 
20005 DATA 9, 128, 13, 2, 160, 37,0, 154, 170, 0, 38, 170,0,9, 
154,0,2,118,8, 10, 154 
20010 DATA 32, 170, 168, 42, 170, 154, 42, 128, 118, 40,0, 16, 
0,0,0,99 
20015 DATA 0,0,0,0,0,0,192,0,0,192,0,0,128,0,0,128, 
8,0,128,2,0,128,0,80 
20020 DATA 192,2,80,192,9,12B,112,42,0,170,152,0,170, 
96,0,153,128,0,118,0,0 
20025 DATA 154,128,128,170,168,32,154,170,160,118,10, 
160,16,0,160,0,0,0,99 
20030 DATA 0,0,0,0,0,0,0,0,0,0,0,0,8, 0, 128, 32,0, 32, 
128, 0,8, 128, 0,8, 128, 32,8 
20035 DATA 128, 168,8, 170, 170, 168, 174, 170, 232, 138, 
154, 136, 128, 168, 8, 128, 32,8 
20040 DATA 128,0,8, 32, 0, 32,8, 0, 128,0,0,0,0,0,0,0,0,0,99 
20045 DATA 106, 170,0, 154, 170, 128, 166, 166, 128, 154, 154, 
140, 154, 106, 168, 106 
20050 DATA 90, 168, 170, 154, 154, 166, 154, 102, 169, 1469, 
100, 170, 169, 153, 106, 166, 106 
20055 DATA 170, 102, 149, 166, 154, 149, 105, 170,170, 
154, 165, 170, 154, 166,170, 106, 170 
20060 рата 168,170,170, 168, 170, 106, 152, 153, 154, 96,0, 
0,0,99 
20065 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,40,0,2,170, 128, 
10, 170, 240, 46, 186, 152, 190 
20070 DATA 250, 250, 186, 250, 186, 251, 250, 170, 250, 254, 
170, 174, 254, 186, 170, 190, 174 
20075 DATA 170, 184, 174, 42, 186, 168, 10, 250, 140, 2, 250, 
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128,0,56,0,0,0,0,0,0,0,99 

20080 DATA 0,24,0,0,24,0,0,24,0,0,24,0,0,24,0,0,24, 
0,0,24,0,0,24,0,0,24,0,0,24,0 

20085 DATA 0,24,0,0,24,0,0,24,0,0,24,0,0,24,0,0,24, 
0,0,24,0,0,24,0,0,24,0,0,24,0 

20090 DATA 0,24,0,99 

20095 DATA 0,0,0,0,8,0,0,148,128,0,65,0,1,42,64,2,0,32, 
0,34,0,7,73,112 

20100 DATA 112,28,7,7,73,112,0,34,0,2,0,32,1,42,64, 
0,65,0,0,148,128,0,8,0 

20105 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,99 


CHEXSUM 
A=4552 125=2687 257=2372 
1=2756 138=677 2€0=5979 
2=4179 140-3786 265=5346 
2=2827 150=1062 2r0=3641 
5=4Ø92 155=3322 238=2997 
5=39Ø2 157-1184 ፎ51=2371 
8=3596 16й<4 176 285-4134 
3=3596 162=1457 297=2331 
12-43091 155-5184 200-1741 
15-3784 167-1677 2801-3859 
28=3733 170-1288 3805-3868 
25=2584 172=3912 318-2628 
30=2575 175=1616 311=3376 
3523656 156=111፻ 212=1575 
40-3268 185-4768 315-4488 
45-3270 1980-4708 32Ø=4883 
5A=3266 195-4887 325=2259 
55237983 гйй=412@ 35A=526 
EB=3792 295-4154 5860-1765 
ES=3791 PIm-2378 595-2444 
78-3397 215-1484 iege-dzzz 
75=3385 217=1169 1802=619 
sa-3392 218-3924 1992-3378 
25=2392 22Ø=42Ø9 1885-4138 
32=3388 222=2447 1007=13236 
95=3384 225-5087 1818-1284 
1988-2217 230-5260 1915-2374 
105-2106 225=945 1028=1395 
119=1356 246=1569 1022-3651 
115-3683 250=1924 1825-1534 
122=4690 251=3959 129 27=2811 
121-2825 255=4863 1838-1184 
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1835=17834 
12:66: 90=2724 
1nno5-1438 
12010-2361 
160152606 
10020=3353 
12: 0ዉ25=15ሟቋ 
c9800=37639 
206805=3582 
сай 169 2።ፎመፎዓ 
200 15=3459 
саявйса-звза 
PADES-37E6 
сяйза-з787 
2ØØ35=3871 
2cando=23527 
20045=3562 
20954=4091 


سا 


30 
сә =። 
መ ርቫ 
e m 
[ | 
ro + 
-J TU 
b O 
[кэ + 


ርጋ 
= 


во 
ee [2 O ГӘ 
መ to ір 10 
a ІЛ 
| | 
ርበ ፌዴ 
(ut 
መ ІЛ 
T 


ru m re re Tu 5 [u Tu ro fa ro 
e 
(a 
(3 
II 
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тота = 3878003 


SPRITE 


HOME 
PLANET 


147 


Tank Attack 


The aliens are coming again! 


Controlling a laser tank, you must try and stop as many starships as 
possible from landing. If one does land it will release the aliens and fly 
away. 

The starships are protected by a force-field which flickers on and off. 
When blue the craft can be destroyed, when red the force-field protects 
the ship. The starships will attempt to destroy you using guided lasers. 


Y our controls are: 
‘Z to move the tank left 
'C' to move the tank right 
‘M’ to fire your laser 
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PROGRAM STRUCTURE 


INITIALIZATION 
(PRINT SURFACE 8 SPACE SHIP) 


GET KEY PRESSED 

MOVE LEFT? 

MOVE RIGHT? 

FIRE CANNON2 

HIT SPACE SHIP? 

MOVE SPACE SHIP 

TANK BEING ATTACKED 
SPACE SHIP HIT AND FALLING 
TANK UNABLE TO PREVENT LANDING 
TANK HIT BY MISSILE 
CONTINUE GAME 


VARIABLES 

Р = TANK POSITION 
A = ALIEN POSITION 
PE = KEY PRESSED 
B = BOMB POSITION 
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LINES 


1— 10 

15 

20 

30 

50 

67 

100— 106 
145 — 170 
500 — 520 
1000 — 1030 
5000 — 5070 
1040 — 1070 


TANK ATTACK 


O POKE V + 55, 255 + POKE V + 56,47 * PRINT "EZ" + 
POKE 53281,0 2 POKE 53280,0 

1 V = 53248 + POKE 2040,192 + POKE 2041,194 + 
POKE 2042,196 + POKE 2043,197 + POKE 2044, 198 

2 POKE V + 39,3 + POKE V + 40,2 : POKE V + 41,2 + 
POKE V + 42,3 + POKE V + 43,12 + 
POKE V + 28,15 

3 POKE V 4 37,8 + POKE V + 38,5 

4 FOR I = O TO 446 + READ Q + POKE 12288 + 1,0 + 
NEXT 

5 FOR I = 56136 TO 56295 + POKE 1,9 5 
POKE I - 54272,160 * NEXT = POKE V + 21,31 
POKE 54273,0 

6 POKE 54272,0 + POKE 54276,0 : POKE 54277,0 + 
POKE 54278,0 + POKE 54296,15 ፥ POKE 54278,240 

7 POKE 54276,129 + POKE V + 23,0 + POKE V + 29,4 
5 P = 110 = POKE Y + 1,200 = POKE V + 2,11 

8 POKE V + 5,50 е POKE V + 4,230 : 
A = 150 + INT C RND ( 1 ) 70) + B = 50 + 
РЕ = PEEK ( V + 30 ) + Б = .4 

9 POKE V + 8,0 2 POKE V + 9,220 

10 POKE 54275,0 : PE = PEEK ( V + 30 ) 

15 PE = PEEK ( 197 ) 

20 IF PE = 12 AND Р > 30 THEN Р = P - 55 
POKE 2040,192 + POKE 54273,2 

30 IF PE = 20 AND P < 320 THEN P = P + 3 + 
POKE 2040,193 ፥ POKE 54273,2 

35 IF P > 255 THEN POKE V,P - 256 ፥ POKE V + 16, 
PEEK ( V + 16 ) OR 1 + GOTO 50 

40 POKE V,P = POKE V + 16, PEEK ( V + 16 ) AND 254 

50 IF PE < > 36 THEN 100 

60 FOR I = 50 TO O STEP - 2 + POKE 54275,1 + NEXT 

62 X = P — 5 Y = 192 + D = - 1 + POKE 2041,195 + 
IF PEEK ( 2040 ) = 193 THEN D = 1 ፥ 
X = X + 20 + PDKE 2041,194 

65 IF PEEK ( V + 30 ) < > 6 THEN 70 

66 POKE V + 2,0 + POKE V + 3,190 + X = 30 > 
FOR I = O TO 10 è POKE 54275,1 + NEXT 

67 IF PEEK ( V + 41 ) = 246 THEN GOSUB 500 

68 POKE 54273,0 

70 IF X < 40 OR X > 300 OR Y < SO THEN X = O + 
Y = 0 5 POKE V + 2,0 + POKE V + 3,192 + 
POKE 54273,0 + GOTO 100 

BO X= X+D* 5: Y=Y-6 

IF X > 255 THEN 


4» «b 


4 


85 POKE V + 3,Y + 
POKE V + 2,X — 256 + POKE V + 16, 
PEEK ( V + 16 ) OR 2 5 GOTO 95 

90 POKE V + 2,X $ POKE Y + 16, PEEK ( V + 16 ) 
AND 253 


100 G = 6 + .02 - IF RND ( 1 ) < .6 THEN A = ñ — 5 
101 B = B + 6 > IF RND ( 1) < .1 THEN A = A + 4 
102 IF ñ > 320 THEN A = 240 


2 
105 IF ñ < 40 THEN A = 40 


150 


106 IF A > 255 THEN POKE V + 4,A — 256 ¢ 
POKE V + 16, PEEK ( V + 16 ) OR 4 = GOTO 110 
107 POKE V + 4,4 > POKE V + 16, PEEK ( V + 16 ) 


AND 251 

110 POKE V + 5,B * IF RND ( 1 ) < .3 THEN 
POKE V + 41,2 

115 IF RND ( 1 ) < .1 THEN POKE Y + 41,6 

120 IF B > 185 THEN 1000 

130 IF RND ( 1 ) < .96 THEN GOTO 10 

140 IF A < Р THEN POKE 2041,195 


142 IF A > P THEN POKE 2041,194 
145 FOR I = О TO 40 STEP .4 + POKE 54275,1 + NEXT + 
POKE 54273,0 
146 SH = A $ FOR І = B TO 215 STEP 6 
150 IF RND ( 1 ) < .4 THEN 
SH = SH + ( (SH >P ) - ( SHX P))0 4 5 
160 IF PEEK ( V + 30 ) = 3 THEN 5000 
161 IF SH > 255 THEN POKE V + 2,SH - 256 ፥ 
POKE Y + 16, PEEK ( V + 16 ) OR 2 + GOTO 165 
162 POKE V + 2,SH + POKE V + 16, PEEK ( V + 16 ) 


AND 253 
165 POKE Y + 3,1 
170 NEXT 


180 POKE V + 2,0 + POKE V + 3,190 

190 GOTO 10 

200 A = INT ( RND (1 ) 4 50) + 170 ሩ B = 50 + 
X = 30 + POKE V + 29,4 + POKE V + 23,4 

205 POKE V + 16, PEEK ( V + 16 ) AND 251 

500 POKE V + 2,0 + POKE V + 3,192 

502 POKE 54273, ( B - 40) 

505 G = G + .02 5 B = B + 6 + POKE V + 5,B += 
IF 8 < 205 THEN 502 

506 POKE 54273,2 + POKE V + 29,20 + 
POKE V + 9,B — 5 2 POKE V + 4,0 = 
POKE ህ + 5,0 

507 IF A > 255 THEN POKE V + 8,A — 256 + 
POKE V + 16, PEEK ( V + 16 ) OR 16 = 
GOTO 510 

508 POKE V + 8,A + POKE V + 16, PEEK ( V + 16 ) 
AND 239 

510 FOR Z = 10 TO O STEP - .2 ፥ POKE 54273,1 + 
NEXT : A = 150 + INT ( RND ( 1 ) X 70 ) + 
В = 50 + POKE 54273,0 

515 FOR Z = 1 TO 500 + NEXT = POKE V + 29,4 + 
POKE V + 8,0 * POKE V + 9,220 

517 IF А > 255 THEN POKE V + 4,A — 256 + 
POKE V + 16, PEEK ( V + 16 ) OR 4 + GOTO 520 

518 POKE V + 4,4 + POKE V + 16, PEEK ( V + 16 ) 
AND 251 

520 POKE V + 5, 

1000 POKE ህሃ, 0 + 


В + G = О = RETURN 

POKE V + 1,0 = POKE V + 2,0 = 
+ 3,0 = 4276,0 * POKE 54276,17 
1001 POKE V + 8,0 = POKE V 

1005 PRINT " ፎ3 


151 


1006 


1007 


1010 


1011 
1012 


1015 
1020 


1025 
1030 


1040 
1050 
1060 
1070 
3000 


5001 
2002 


3003 


3004 


3005 
3010 
5020 
5025 
5050 
5040 
5050 
3060 


3065 
5070 
9000 
9010 


9020 
7030 


7040 
7050 
7060 
9070 
9080 


9090 


Т = 1 TO 5 5 IF A > 255 THEN 
— 256 + POKE V 4 16, 
4 ) OR 8 + GOTO 1010 


6 
PEEK ( V + 
A POKE V + 16, PEEK ( V + 16 ) 


POKE V + 6, 
AND 247 
FOR I = B TO 205 + POKE V + 7,1 + 

POKE 54273,1 — 185 * NEXT I 


FOR I = A TO © STEP - 1 

POKE V + 6,1 + POKE V + 16, PEEK ( V + 16 ) 
AND 247 

POKE 54273,1 + NEXT I,T 

FOR I = В ТО 20 STEP - 1 + POKE V + 5,1 + 
POKE 54273, INT ( RND ( 1 ) 8 200 ) = NEXT 

POKE 54273,0 + POKE 54276,0 + POKE 54276,33 

FOR I = 50 TO 1 STEP — .4 + POKE 54275,1 + NEXT 
2 POKE 54273,0 

PRINT " [4 El El FI БІРІ АҮ „ AGAIN?" 

GET A$ + ፲፻ А% = "Y" THEN RUN 

IF A$ < > "N" THEN 1050 

END 

POKE 54276,0 + POKE 54276,129 + POKE V + 2,0 + 
POKE V + 3,190 

POKE V,O : POKE V + 1,0 + POKE V + 9,200 


IF P > 255 THEN POKE V + 8,P — 256 + 
POKE V + 16, PEEK ( V + 16 ) OR 16 * GOTO 5004 

POKE V + 8,P : POKE V + 16, PEEK ( V + 16 ) 
AND 239 

FOR I = 20 TO © STEP -.1 + POKE 54273,1 * NEXT 
5 POKE 54273,0 

POKE 54276,0 + POKE 54276,33 

FOR I = 200 TO О STEP — 2 + POKE 54275,1 + NEXT 

FOR I = O TO 10 STEP .2 + POKE 54275,1 + NEXT 

POKE 54273,0 + POKE 54276,0 + POKE 54276,17 

FOR I = 10 TO 30 STEP .1 + POKE 54273,1 * NEXT 

FOR I = 50 TO O STEP - .4 + POKE 54275,1 + NEXT 

POKE 54273,0 

B = B + 1 ፥ POKE V + 5,8 = POKE 54273,B + 
IF В < 185 THEN 5060 

POKE V,O + POKE V + 1,0 + POKE 54273,0 

GOTO 1000 

DATA 0,0,0,0,0,0,0,0,0,2,0,0,0,128,0,0 
,128,0,0,32,0,0,8,8,0,9,8,0, 21,8,0 

DATA 21,8,0,85, 72, 0,985, 72, 3, 255, 248, 15 
, 255, 252, 51,51,51,51,51, 51,15, 255, 252 

DATA 3,255,240,0,0,0,0,0,0,99 

DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,32,0 
,0,128,0,0,128,0,2,0,8,9,0,8,21,0,8 

DATA 21,0,8,85,64,8,85,64,11,255,240 
,15,255,252,51,51,51,51,51,51,15,255 

DATA 252,3,255,240,0,0,0,0,0,0,99 

DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

DATA 0,10,0,0,38,0,0,38,0,0,38,0,0 
,40,0,0,32,0,0,128,0 


DATA 0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0,0,0,0,0,0,99 
DATA 0,0,0,0,0,0,0,0,0,0,0 


152 


0,0 

9100 DATA 0,160 
50,0,40,0,0,8, А 

9110 DATA 0,0, 0,0,0, 0,0,0 
,0,0,0,0,0,0,0,0,0,99 

9120 DATA 0,48,0,0,48,0,0,252,0,0,48,0,3,87 
,0,9,101,128,252,100,124,61,101,240 

9130 DATA 15,155,192,3,255,0,1,253,0,1,49 
,0,4,0,64,16,0,16,136,0,136,0,0,0,0,0,0 

9140 DATA 0,0,0,0,0,0,0,0,0,0,0,0,99 

9150 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


9160 DATA 0,4,0,0,29,0,0,29,0,0 
,4,0,0,4,0,0,34,0,0,34,0 

9170 DATA 0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0,0,0,0,0,99 

9180 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

9181 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


9182 DATA 0,0,0,0 
9190 DATA 3,7,0,7,223,184,15,255,248,15 
, 255, 252,63, 255, 255, 255, 255, 255 
9200 DATA 255,255,255, 255, 255, 255, 255, 255, 255 


CHEXSUM 
a=3255 25=4668 PBL-3856 
l-3935 S@=P 3906 2a5=1572 
2=44A8 መ===477ዖ7 =6= 1225 
3=1342 100-2251 [02:926 
4=2221 181-2150 515=2048 
5=4292 182=1157 566-2592 
6=2225 16)5= 1033 SØ7=3976 
7=4155 196=3921 5as=2227 
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Star Pilot 


This program also contains some machine code routines. 


In this game you, the Star Pilot, must attempt to get approaching and 
retreating enemy space craft into your sights and blast them. 


The game's objective is to get as many enemy craft as possible within the 
2 minutes playing time allowed. 


'W' and 'X' control your up and down movement. 
'A' and'D' control your left and right travel. 
'S' kev is used to fire with. 
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PROGRAM STRUCTURE LINES 
SET UP COLOUR MODE: TURN SOUND ON 1 
READ IN SPRITE DATA 5 


SPRITE 0 = SIGHTS 10 
SPRITE 1 = LEFT MISSILE 
SPRITE 2 = RIGHT MISSILE 
SPRITE 3 = ALIEN 
PUT SIGHTS ON SCREEN 


GIVE X, Y COORDINATES OF SIGHTS (148, 108) 15 
MAKE MISSILES MULTI-COLOUR 
MAKE MISSILES RED 


CLEAR SCREEN: GIVE ADDRESS OF 20 
KEYBOARD 
LOAD IN MACHINE LANGUAGE ROUTINE 25 


GET ADDRESSES OF THE 3 MACHINE CODE 
ROUTINES 30 
SET CHARACTER COLOUR TO WHITE 


PLACE STARS RANDOMLY INBACKGROUND 35 


INITIALIZE TIME = 0 40 
SCORE = 0 

READ KEYBOARD 50 
GET SPRITE COLLISION REGISTER 
MAKE SIGHTS GREEN 


IF SIGHTS AND ALIEN ARE TOUCHING THEN 
MAKE SIGHTS RED 


IF PLAYER DID NOT HIT ‘FIRE’ THEN 100 52 
SET UP VOICE 1 ON SID CHIP 53 
PUT L AND R MISSILES ON SCREEN 55 — 60 
MOVE MISSILES TOWARDS SIGHTS 65 — 75 
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IF BOTH L AND R MISSILE DID NOT HIT 75 — 80 
ANYTHING THEN 85 


IF ALIEN WAS HIT THE 1000 82 
MAKE SMALL EXPLOSION SOUND 83 


PUT EXPLOSION SPRITE INSTEAD OF MISSILE 85 — 90 
ON SCREEN, WAIT, THEN ERASE 


RESTORE POINTER TO MISSILE AGAIN 95 
IF ALIEN IS ON SCREEN THEN 130 100 


90% CHANCE EACH TIME ROUND LOOP, OF 105 
NOT CREATING AND ALIEN IF ONE 
ALREADY THERE. NO ALIEN TO BE 
CREATED THEN 200 


SET RANDOM X, Y, Z OF ALIEN FROM SPACE- 107 — 129 
SHIP. THEN PUT ALIEN ON SCREEN, SIZE 
OF ALIEN DEPENDENT ON Z. AREAS 195 — 
199 OF MEMORY CONTAIN DEFINITIONS 
FOR ALIEN SPRITE. 195 — SMALLEST, 199 
— ы usen SET ALIEN PRESENT STATUS 
FLAG. 


MOVE ALIEN IN X, Y, Z DIRECTION RANDOMLY 130 --- 175 


IFPLAYER DID NOT HIT DIRECTION KEY THEN 200 
300. IF NO ALIEN PRESENT THEN 232 


MOVE ALIEN RELATIVE TO OUR SPACE SHIP 205—230 
IF WE ARE GOING UP THEN MOVE ALIEN 
DOWN, IF WE ARE GOING LEFT THEN MOVE 
ALIEN RIGHT AND VICE VERSA 


IFUP DIRECTION SELECTED, THEN MAKE STAR 232 
FIELD MOVE DOWN RELATIVE TO SPACE 
SHIP. PLACE STAR RANDOMLY AT TOP OF 
SCREEN. GO TO 300. 
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IF LEFT DIRECTION THEN MOVE STAR FIELD 235 
RIGHT. PLACE STAR RANDOMLY ALONG 
RIGHT-MOST COLUMN. GO TO 300. 


IF RIGHT DIRECTION THEN MOVE STAR FIELD 240 
LEFT. PLACE STAR RANDOMLY ALONG 
LEFT-MOST COLUMN. GO TO 300. 


SCROLL SCREEN UP FOR DEFAULT DOWN 245 — 250 
DIRECTION. PLACE A STAR RANDOMLY 


ALONG BOTTOM LINE 
IF TIME IS NOT UP THEN 50 300 — 305 
ASK FOR NEW GAME 
IF REPLY = YES THEN GO TO ЗО 320 
OTHERWISE END 325 
BLOW UP ALIEN. MAKE BIG EXPLOSION 1000 — 1025 


SOUNDS, PLACE EXPLOSION CLOUDS ON 
SCREEN. SET ALIEN PRESENT FLAG = 0 


SPRITE DATA 10000 — 10130 
DOWN DIRECTION SCROLLING ROUTINE 20000 — 20010 
RIGHT SCROLLING ROUTINE 30000 — 30010 
LEFT SCROLLING ROUTINE 40000 — 40010 


ti 


STAR PILOT 


1 POKE 55,255 + POKE 56,47 + V = 53248 + 
POKE V + 32,12 + POKE V + 33,0 + 
POKE V + 38,5 + POKE 54296,15 
5 FOR I = O TO 638 + READ A = POKE 1024 * 12 + I,A 

+ NEXT 

10 POKE 2040,192 = POKE 2041, 195 + POKE 2042,194 : 
POKE V + 21,1 + POKE V + 39,5 $ POKE V + 23,1 

15 POKE V + 29,9 : POKE V,148 + POKE V + 1,108 ፥ 
POKE V + 28,6 = POKE V + 40,2 + POKE V + 41,2 
5 POKE V + 37,8 

20 KB = 197 г PRINT " р" 

25 FOR I = © TO 151 + READ A $ POKE 13 # 1024 + I,A 
s NEXT 

30 D = 1% Ж 1024 5 LE = D+ 52 * RI = D + 102 + 
FOR I = 55296 TO 56295 + POKE 1,1 * NEXT 

35 FOR I = 1 TO 50 += 
POKE 1024 + RND ( 1 ) 8 1000,46 = NEXT 

40 AL = 0 5 TIS = "000000" * SC = 0 

SO K = PEEK ( КВ) + A = PEEK ( + 30) + 
POKE V + 39,5 IF A = 9 THEN POKE V + 39,2 

52 IF K < > 13 THEN 100 

53 POKE 54276,0 + POKE 54275,72 5 POKE 54272,169 + 
POKE 54277, 145 5 POKE 54276,129 

55 POKE V + 2,60 5 POKE V + 3,220 + POKE V + 5,220 

60 POKE V + 4,4 * POKE V + 16, PEEK ( V + 16 ) OR 4 
+ POKE V + 21, PEEK ( V + 21) OR 6 

65 FOR I = 1 TO 32 + POKE V 2, PEEK ( V + 2 ) + Š 

2 POKE V + 3, PEEK ( V 5) — 3 ¢ 

+ ) 


a 4 


POKE V + 5, PEEK ( ህ 
70 A = PEEK ( V + 4) - 3 F A < O THEN A = 255 + 
POKE V + 16, PEEK ( V + 16 ) — 4 
72 POKE V + 4,й 
75 А = PEEK ( V + 30 ) = NEXT + POKE V + 21, 
PEEK ( V + 21 ) — 6 * B = ñ AND 2 + 
IF В = O THEN B = а 
80 IF B = O THEN 85 
82 IF A AND 8 THEN 1000 
83 POKE 54276,0 + POKE 54275, 17 + POKE 54277,7 ፥ 
POKE 54276,129 
85 POKE V + 2, PEEK ( V) + 10 + POKE Y + 3, 
PEEK ( V + 1 ) + 10 è POKE 2041,201 * ` 
POKE V + 21, PEEK ( V + 21 ) OR 2 
90 FOR I = 1 TO 50 * NEXT + POKE V + 21, 
PEEK ( V + 21) - 2 
95 POKE 2041,193 
100 IF AL > O THEN 130 
105 IF RND ( 1 ) > .1 THEN 200 
107 IF PEEK ( V + 16 ) AND A THEN POKE V 4 16, 
PEEK ( V + 16) - В 
110 POKE V + 6, RND ( 1 ) ж 256 + ፲፻ RND ( 1 > > .75 
THEN POKE V + 6, RND ( 1 ) % 63 : POKE V + 16, 
PEEK ( V + 16 ) OR В 
115 POKE V + 7, RND (1 ) ¥ 200 = Z = INT 
( RND ( 1 ) 8 5) + POKE V + 42,4 


+ 
+ 
3 
I 
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120 DZ = INT (RND (1 ) 8 5-2) + 
( RND ( 1 ) 8 5 - 2 ) 2 DX = IN 
(RND ‹ 1 ) € 5 -2)) 

121 IF ( DX = O AND DY = O AND DZ = O ) OR 
( DX = O AND DY = O AND DZ > © ) THEN 120 

122 IF Z — O THEN 129 

123 IF PEEK ( V + 16 ) AND 8 THEN POKE V + 16, 

16) - 8 

» .5 THEN 127 

+ IF RND ( 1 ) > .5 THEN 

„Ве + POKE V + 16, PEEK ( V + 16 ) 


DY = INT 
T 


V + 
124 IF RND ( 1 ) 
125 POKE V + 6,2 

+ 6 


126 GOTO 129 
127 POKE V + 7,31 : IF RND ( 1 ) > .5 THEN 
POKE V + 7,246 
129 POKE 2043,195 + Z + POKE Y + 21, PEEK ( V + 21 ) 
OR 8 : AL = 1 
130 А = PEEK ( V + 7) + DY € 2 + 
IF A < 31 OR A > 246 THEN AL = O + 
POKE V + 21, PEEK ( V + 21 ) - 8 + GOTO 200 
135 POKE V + 7,06 + A = PEEK ( V + 6) + DX £ 2 ፥ 
B = PEEK ( V + 16 ) AND 8 
140 IF (A< 2 AND B = O ) OR ( A > 86 AND B ) THEN 
AL = O 5 POKE V + 21, PEEK ( V + 21 ) - 8 + 
GOTO 200 


145 IF А < O THEN A 259 + POKE V + 16, 


PEEK ( V + 16 ) — В 

150 IF A > 255 THEN A = O = POKE V + 16, 
PEEK ( V + 16 ) OR 8 

155 POKE V + 6,A 5 Z = Z + DZ / 20 + IF Z < O THEN 
AL = О + POKE V + 21, PEEK C V + 21) - 8 + 
GOTO 200 

157 IF Z > 4.9 THEN 4.9 = DZ = ፦ INT 


1 

(RAND ( 1 > ¥ 3 

160 РОКЕ 2043,195 + Z 
. 9 


165 IF RND ( 1 ) < THEN 200 
170 DX = INT ( RND (1) ¥ Š - 2 ) 
рү = INT ( RND C 1 ) £ 5-2 + 


) 
IF RND (1 ) > .7 THEN DZ = INT 
(RAND ( 1) #5- 2) 
175 IF DX = O AND DY = O AND DZ = O THEN 170 
200 IF K < > 9 AND K < > 18 AND K < > 23 
AND K < > 10 THEN 300 
F AL = 0 THEN 232 
= РЕК (V * 7) - CK = 9 ) 8 B + 
(K=23) 4 8 
206 IF A < 31 OR A > 246 THEN AL = © = POKE V + 21, 
PEEK ( V + 21 ) — 8 + GOTO 50 
OKE Y + 7,A 


203 1 
205 A 


207 P 
210 B PEEK ( V + 16 ) AND 8 = A = PEEK (C V + é D 
— (К = 10 ) ዌ 8 + ( K = 18) * 8 
215 IF ( ñ < 2 AND B = O › OR (A > 86 AND B) 
THEN AL = O + POKE V + 21, PEEK ( V + 21 ) — В 
5 GOTO 200 
220 IF А < O THEN А = 255 = POKE Y + 16, 
PEEK ( V + 16 ) — 8 
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225 IF A > 255 THEN А = O $ POKE V + 16, 
PEEK ( V + 16 ) OR 8 
230 POKE V + 6,4 
232 IF К = 9 THEN SYS D + POKE 1024 + 
RND ( 1 ) 8 40,46 = GOTO 300 
235 IF К = 10 THEN SYS RI + POKE 1024 + INT 
€ RND ( 1 ) % 25 ) % 40,46 = GOTO 300 
240 IF К = 18 THEN SYS LE + POKE 1063 + 
INT (€ RND (1) Ж 25) % 40,46 + GOTO 300 
245 PRINT " EJ (a (a (a (ей (a [a [e] (a [ወ] (e) [e] (a (a [el 
te] (e) [e] [e] (61 (ей (e (ей (e [e] (GA å å å 2 2 
^ ^ PY a + P + + + + + ж ж» ж 
in a da da da ሔ de ሔሕ ^ ж a a a + ta 
250 POKE 56295,1 + POKE 1984 + RND ( 1 
300 IF TIS < "000200" THEN 50 
305 PRINT " Eh TIME „ИР [e] [e] fey" * PRINT “ Ea YOU 
a SCORED"3SC 2 POKE V + 27,255 
310 PRINT ~ [e] ርብ (a (е (SIWOLULD a YOU „LIKE a ANOTHER 
a GAME?" 
315 GET A$ 5 IF ñ$ = "Y" THEN POKE V + 21,1 $ 
PRINT "K2" * POKE V + 27,0 = GOTO 30 
320 IF A$ < > "N" THEN 515 
325 END 
1000 POKE V + 21,9 $ AL = 0 + POKE V + 2, 
PEEK ( V ) + 10 $ POKE V + 3, 
PEEK ( V + 1 ) + 10 
1001 POKE 54276,0 5 POKE 54275,8 + POKE 54272,47 5 
POKE 54277,76 + POKE 54276,129 
1005 POKE V + 4, PEEK ( V ) * POKE V +5, 
PEEK ( V + 1 ) $ POKE V + 23, PEEK ( V + 25) 
OR 4 
1010 POKE V + 29, PEEK ( V + 29 ) OR 4 $ 
POKE 2041,200 + POKE 2042,200 
1015 POKE V + 21, PEEK ( Y + 21 ) OR 6 + 
FOR A = 200 TO 201 : POKE 2042,A = 
FOR B = 200 TO 201.9 STEP .05 
1020 POKE 54276,0 + POKE 54276,129 : POKE 2041,B =: 
NEXT B,A + POKE V + 23,1 ፥ POKE V + 29,9 
1025 POKE V + 21,1 * POKE 2041,193 + POKE 2042,194 ፥ 
SC = SC + ( 5 — INT (Z > ) ¥ 10 = GOTO 100 
10000 DATA 0,0,0,0,0,0,0,0,0,0,28,0,0,255, 128,7 
, 128,240,12,0,24,16,8,4,32,8,2 
10005 DATA 32,0,2,0,99,0,32,0,2,32,8,2,16,8,4 
,12,0,24,7,128,240,0,255,128,0,28,0 
10010 DATA 0,0,0,0,0,0,0,0,0,99 
10015 DATA 0,0,0,0,0,0,0,2,128,0,2,128,0,41,128 
,0,41,128,0,150,0,0,150,0,2,86,0 
10020 DATA 2,86,0,2,88,0,2,88,0,9,160,0,9,160,0 
,38,0,0,38,0,0,40,0,0,40,0,0 
10025 DATA 128,0,0,128,0,0,0,0,0,99 
10030 DATA 0,0,0,0,0,0,2,128,0,2,128,0,2,104 
,9,2,104,0,0,150,0,0,150,0 
10035 DATA 0,149,128,0,149,128,0,37,128,0,37,128 
50,10,76,0,10,96,0,0,152,0,0,152 
10040 DATA 0,0,40,0,0,40,0,0,2,0,0,2,0,0,0,99 


) 8 40,46 
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10045 


10050 


10055 


10060 


10065 


10070 


10075 


10080 


10085 
10090 


10095 


10100 
10105 


10110 


10115 
10120 


10125 


10130 


20000 


20005 


20010 
30000 


30005 


30010 
40000 


40005 


40010 


DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0,0,0,0,8,0,0,62,0,0,0,0 

DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0,0,0,0,0,0,0,0,0,99 

DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0,8,0,0,28,0,0,255,128 

DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,99 

DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,34,0,0,28,0,0,127,0,3,255,224 

DATA 0,201,128,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

DATA 99,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,99,0,0,28,0,0,62,0,0,247,12 

DATA 7,255,240,31,255,252,1,201,192,0,0,0 
,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

DATA 0,0,0,0,0,0,0,99 

DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,128,128,0 
,99,0,0,28,0,0,127,0,1,227,192,15 

DATA 255,248,127,255,255,7,156,240,2,0 
,32,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

DATA 0,0,0,0,0,0,0,99 


DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,52 
,0,0,186,128,10,247,128,47,123,128 

DATA 181,151,224,173,85,120,11,95,248,2 
,222,160,2,222,0,2,222,0,0,190,0 

DATA 0,40,0,0,0,0,0,0,0,0,0,0,0,0,0,99 

DATA 0,0,0,0,0,0,0,2,128,0,138,232,2,239 
,120,11,117,224,45,119,168, 47,87 

DATA 254,10,213,94,11,85,248,11,87,160 
,45,221,128,181,221,224,183,223, 120 

DATA 46,187,94,8,34,222,0,0,184,0,0 
,32,0,0,0,0,0,0,0,0,0 

DATA 162,192,189,255,6,157,39,7,202, 208 
,247,202,189,255,5,157,39,6,202,208 

DATA 247,202,189,255,4,157,39,5,202, 208 
,247,202,189,255,3,157,39,4,202, 208 

DATA 247,149,32,157,0,4, 232, 224,40, 208, 248,96 

DATA 169,0,133,20,169,4,133,21,160,1,177 
,20,136,145,20,200, 200, 192, 40 

DATA 208, 245, 136, 169, 32, 145, 20, 149, 40, 24 
, 101, 20, 133, 20, 169, 0, 101, 21,133, 21 

DATA 201, 7, 208, 221, 165, 20, 201, 232, 208, 215, ዋሬ 

DATA 169,0, 133, 20, 169, 4, 133, 21, 160, 39,177 
, 20, 200, 145, 20, 136, 136, 192, 255 

DATA 208, 245, 200, 169, 32, 145, 20, 169, 40, 24 
,101, 20, 133, 20, 169, 0, 101, 21, 133, 21 

DATA 201, 7, 208, 221, 145, 20, 201, 252, 208, 215, 96 
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19125=4280 
10138=23905 
20098=4468 
2A905=446 1 
EBBIB-2374A 
гайяй- 52. 
0005=442 

2344 18= 2297 
48000 =4039 
40005 =44024 
q40010=2297 
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Martian Invasion 


Fly your plane over the city, watching Martian Pods drop from the sky. 


A tripod or a flying machine will hatch out from the crater left by the Pod. 
The tripods shoot at you and the flying machine will try to crash into you. 
All this while a red weed starts growing and crawling. 


You must shoot as many Martians as possible before your inevitable 
defeat. If you crash into a pod you explode, so avoid them. This game has 
excellent graphics and should provide many hours of fun. 


Y our controls are: 
'W' up 
'X' down 
'A' left 
'D' right 
'S' to fire your laser 


See how many you can get! 
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PROGRAM STRUCTURE 

INITIALIZATION 

PRINT GROUND/BUILDING 

INITIALIZE VARIABLES/COLOURS 

GET KEY PRESSED 

FACE FIGHTER IN LEFT/RIGHT DIRECTION 
CHECK HORIZONTAL POSITION OF CRAFT 


MOVE CRAFT TO NEW HORIZONTAL/VERTICAL 
POSITION 


PUT POD ON SCREEN 

PUT TRIPOD ON SCREEN 

PRINT FLYING MACHINE 

EXPLODE FLYING MACHINE 

FIGHTER COLLIDED WITH ANYTHING? 
SHELL FIRED? 

MOVE SHELL 

COLLISION OCCURRED? 

EXPLOSION SOUND OF ALIEN 
DESTROY FIGHTER 

DECREMENT NO. OF LIVES LEFT — FINISHED? 
PLAY AGAIN? 

END 
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LINES 
0—10 

15 — 45 

50 — 53 

55 

56 — 58 

60 — 75 

80 — 95 

110 — 115 
150 — 170 
250 — 270 
300 

500 

505 

510 — 535 
675 

677 — 690 
1000 — 1005 
1035 — 1045 
1035 — 1045 
1060 


VARIABLES 


O MEMORY 


CO = 


V 
A 


DIFFERENCE BETWEEN SCREEN AND VIDE 


START OF VIDEO CHIP 


HOLDS DATA READ IN 


HIGH ORDER BIT FOR SCREEN ADDRESSING 
MARTIAN TYPE: 1 = POD;2 


CONTAINS LAST KEY PRESSED 
POSITION OF FIGHTER CRAFT 


K = 
B = 
A= 
MA 


FLYING MACHINE; 


NOT EXISTENT 


З = 


TRIPOD; 


0 
POSITIONS FOR SPRITES ON SCREEN 


LANDED; —1 
POINTER TO LAST KEY PRESSED REGISTER 


SCORE 
SHELL FIRED FLAG 


VARIABLE 


X,Y 
KB 
SC 
SH 
PRITE # 1 


5 
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MARTIAN INVASION 


O POKE 55,255 + POKE 56,47 
FOR I = 12544 TO 12551 
СО = 54272 
1 POKE 54296,15 
2 POKE V + 34,11 $ POKE V + 35,8 + POKE V + 32,0 +¢ 
POKE V + 33,0 + PRINT "ЕО"; 
5 FOR I = 13312 TO 14015 + READ A ፥ POKE 1,A + 
NEXT $ POKE V + 57,11 $ POKE V + 38,5 
10 FOR I = 12288 TO 12375 + READ A + POKE I,A + 
NEXT + POKE V + 22, PEEK ( V + 22 ) OR 16 + 
POKE V + 24,28 
15 PRINT " [a [e (a (a (a (a (a (ед [ed (ей [е] (el € (e (e) (a [m 
መ (e) [e] [el (е (е ES BBBEBBBBBBBBBBBBBBBBBBBBBBER 
BBBBBBBBBEBB" ; 
20 PRINT "ВВВВВВВВВВВВВВВВВВВВВВВВВВВВВВВВВВВВВВв" 
5 + POKE 2023,2 + POKE 56295,5 
25 PRINT “O O O & БІ F322 [32 E1322 ГІ ዘዘ EE ще BE BED 
2222 ርጋ ዘዘ ዘዘ ዘዘ ዘዘ 18220 [NE ዘዘ 11222 [3 BG BE ዘዘ (34 
А E322 O ዘዘ NE O ዘዘ 1822 [1 ዘዘ 148"; 
30 PRINT " El El El El El El (4 (e) (е (а. GAL WE 11 11 
ሀዘ НЕ ЕН 592922299 [е БЕ ዘዘ ዘዘ BE ዘዘ 112020209 ርጦ ዘዘ ዘዘ ዘበ ፳፪ 
BE 88:3 [400 En 2392" ; 
35 PRINT " E El БІ 32922 O BB ዘዘ 119222 O BE BE 11220 [J 
BE EE 010222 ГІ EE ШЕ 889000 O EE BIO 12^ BB 14 ог) 
EB [el (el (e) (e) (e (e) [መ "5 
40 PRINT " B] Bl [ጣዕ , 12222229 [400 [299 [] HA ዘዘ BE 88 88 
SE ፳፪ ፳፪ EH 4199222222292 ር 3 BE ШЕ EE BE BE 21002000 (J BE 
BE ዘዘ BE ЕЕ 88000000"; 
45 PRINT " [e] (el (el айда) C] ШЕ 1100 Г] EE EE 0300"; 
50 POKE V + 28,3 + POKE V + 29,2 + POKE V,20 5 
POKE V + 1,99 : КВ = 197 + POKE V + 16,0 = 
POKE 2042,215 


Y = 53248 ፥ 
POKE 1,0 * NEXT + 


“ ч» 


52 POKE 2040,216 + DI = О + POKE V + 21,1 + 
MA = — 1 2 PO = PEEK (C V + 50 ) = PO = Q 3 
SH = O 5 RW = 0 5 М1 = O 

55 SC = 0 5 LI = 5 5 PS = 0 5 POKE 54290,0 + 
POKE 54291,0 POKE 54292,240 


55 K = PEEK ( 197 PEEK ( V + 16 ) AND 1 > 


K = 10) * 8 - 


36 IF K = 10 THEN 
57 IF K = 18 THEN 
58 POKE 2040,216 + DI 
60 IF ñ < O AND B THEN POKE V + 16, 
PEEK С V + 16 ) AND 254 В = 0 z 
65 IF A > 255 AND B = O THEN POKE V 
PEEK C V + 16 ) OR 1 : B = 1 + = 
70 IF ñ < 20 AND ። © THEN POKE V + 16, 
PEEK ( V + 16 ) OR 1 + B = 1 = 
75 IF ñ > 64 AND B THEN POKE Y 
1 


) 
= ) 
K = 18 ) $ 8 

D 

D 


pt 


PEEK ( V + 16 ) AND 254 
80 POKE V,A = A = PEEK ( V + 
*B- ( K = 25) * 8 
85 IF A < 52 THEN A = 52 


+ 
B 
) 
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IF A > 203 THEN A = 203 


POKE V + 1,4 * IF MA > - 1 THEN 120 
IF RND ( 1 > > .1 THEN 500 
POKE Y + 23,0 


POKE V + 16, PEEK ( V + 16 ) AND 253 
IF RND ( 1 ) > .75 THEN POKE V + 16, 
PEEK ( V + 16) OR 2 * POKE V + 2, 
RND ( 1 ) 8 64 
POKE V + 3,52 + POKE V + 40,2 : POKE 2041,214 + 
POKE V + 21, PEEK ( V + 21 ) OR 2 + 
POKE 54290, 17 
ON MA GOTO 150,200,250,300,300,310 
X = ( 600 - PEEK (C V + 3) ) ¥ 25 + 
X1 = INT ( X / 256) * Y1 = X - X1 $ 256 
POKE 54287,X1 + POKE 54286,Y1 
POKE V + 3, PEEK ( V + 3) + 8 + 
А = РЕЕК ( V + Š ) + IF А < = 224 THEN 500 
POKE 54275,0 + POKE 54275,5 + POKE 54272,103 + 
POKE 54277,68 : POKE 54276,129 
X = PEEK (V +2) - 20 + 


+ 
( 
+ 

MA = O + POKE V + 2,20 + RND ( 1 ) ¥ 236 = 
V 
( 
( 


IF PEEK ( V + 16 ) AND 2 THEN X = X + 256 
X = INT ( X / B ) + 1944 + POKE X,6 + 
POKE X + 1,32 + POKE X + 2,7 
POKE X + 40,8 + POKE X + 42,9 + 
POKE X + CO + 41,13 + POKE X + 41,10 
ма = INT (RND (1) ¥ 3 + 1 ) + POKE V + 40,12 
2 IF MA = 3 THEN POKE V + 40,6 ż 


CH = INT ( RND C 1 ) £ 5) 
IF MA < 3 THEN POKE V + 23,2 $ POKE V + 3,192 5 
GOTO 145 
POKE V + 3,213 
CR = X - 39 5 RW = О = POKE 54290,0 = GOTO 500 
POKE 2041,208 + PO ሩ PO = 1 — PO + 
IF PO = O THEN 400 
X = PEEK ( V + 2 ) - 8 + 
IF PEEK ( V + 16 ) AND 2 THEN X = X + 256 
IF X < 20 THEN MA = 2 ፥ X = 20 + GOTO 500 
IF X > 255 THEN POKE V + 16, 
PEEK ( V + 16 ) OR 2 * POKE V + 2,X - 256 + 
GOTO 400 
POKE V + 16, PEEK ( V + 16 ) AND 253 + 
POKE V + 2,X + GOTO 400 
POKE 2041,210 + PO + PO = 1 - PO = 
IF PO = © THEN 400 
X = PEEK (V+ 2) + В + 
IF PEEK ( V + 16 ) AND 2 THEN X = X + 256 
IF X > 320 THEN MA = 1 ፥ X = 320 * GOTO 500 
IF X > 255 THEN POKE V + 16, 
PEEK ( V + 16 ) OR 2 + POKE V + 2,X - 256 + 
GOTO 400 
POKE V + 16, PEEK ( V + 16 ) AND 253 : 
POKE V + 2,X : GOTO 400 
IF PEEK ( V + 3 ) > 150 THEN POKE Y + Z, 
PEEK ( V + 3 ) — В POKE 2041,213 + GOTO 500 
POKE 2041,212 + PO * PO = 1 - PQ =: 
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257 


260 


408 
410 
500 
505 
510 
515 
520 
525 
530 
535 
540 
550 
959 


560 


( V + 2 
THEN X = X + 256 
Yi = PEEK ( V + 1 ) * X1 = PEEK ( V ) 


) * IF PEEK ( V + 16 


ж 
+ 


IF РЕЕК ( \/ + 16 ) AND 1 THEN XI = XI 
Y = PEEK ( V + 3 ) 5 IF CH < 10 AND RND 


> .9 THEN CH = CH + 1 

IF RND ( 1) < CH / 10 THEN X = X + ( 
8 - CX < X1) * B * GOTO 275 

X = X + INT (RND ‹ 1 ) ¥ 3-1) ቐ 8 
IF X < 2O THEN X = 20 

IF X > 320 THEN X = 320 

IF RND (1 >) < CH / 10 THEN Y = Y + ( 
x 8 - CY < VI) ¥ B > GOTO 285 

Y = Y + INT (RND ‹ 1 ) ¥ 5 — 1) $a 
IF Y < 52 THEN Y = 52 

POKE V + 3,Y * IF X > 255 THEN POKE V 
PEEK (V + 16 ) OR 2 5 POKE V + 2,X 
GOTO 500 

POKE V + 16, PEEK ( V + 16 ) AND 253 + 
POKE V + 2,X * GOTO 500 


X 


) AND 2 


POKE 2041,218 + POKE V + 40,2 + MA = MA + 1 


GOTO 500 
POKE V + 21, PEEK (V + 21 ) AND 253 + 
5 GOTO 500 


IF SH < > О OR RND (1) < .1 THEN 500 


4 


4 


POKE 54276,0 + POKE 54273,72 5 POKE 54272,169 


POKE 54277,79 = POKE 54276,129 
SH = — 1 + X = PEEK ( V + 2) ፦ 18 


IF MA = 2 THEN SH = 1 2 X = PEEK ( V + 2 )+18 
IF PEEK ( V + 16 ) AND 2 THEN X = X + 256 
+ 


IF X > 255 THEN PDKE V 
PEEK ( V + 16 ) OR 4 
GOTO 410 

POKE V + 16, PEEK ( V + 16 ) AND 251 + 
POKE V + 4,X 


16, 


+ 


POKE V + 4,X - 256 


POKE V + 5, PEEK ( V + 5 ) = POKE V + 41,8 = 


POKE V + 21, PEEK ( V + 21 ) OR 4 
IF PEEK ( V + 30 > AND 1 THEN 1000 
IF SH = O THEN 530 
X = PEEK ( V + 4 ) + SH Е 16 2 


IF PEEK ( V + 16 ) AND 4 THEN X = X + 256 


IF X < 20 OR X > 320 THEN POKE Y + 21, 


+ 


PEEK ( V + 21 ) AND 251 : SH = O = GOTO 550 
IF X > 255 THEN POKE V + 16, PEEK ( V + 16 ) 
OR 4 = POKE V + 4,X — 256 + GOTO 530 


POKE V + 16, PEEK ( V + 16 ) AND 251 * 
POKE V + 4,X = I = PEEK ( V + 30 ) 

IF RW > O THEN 550 

IF RND ( 1 ) < .95 OR MA € 1 THEN 600 

RW = CR 


POKE RW + CO,2 = POKE RW,3 + R1 = RW + INT 


( RND ( 1 ) ቹ 5-1) 
IF Ri < 1904 OR R1 > 1943 THEN RW = O 
GOTO 600 


POKE RI + CO,2 + IF R1 < RW THEN POKE R1,5 


GOTO 575 
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IF R1 > RW THEN POKE Ri 
POKE R1,3 
RW = 81 


54 + 


GOTO S75 


IF PS < > О OR K < > 13 THEN 650 


POKE 54276,0 = POKE 54273,57 


2 
- 


POKE 54272,172 


POKE 54277,79 + POKE 54276,129 


X = PEEK ( V ) + 29 ፥ Y 


= PEEK 


( 


V + i 


) 


IF PEEK ( V + 16 ) AND 1 THEN X = X + 256 
= x - 48 


PS = 1 * IF DI THEN PS 


1 


X 


* 13 


4 


POKE V + 7,Y + IF X > 255 THEN 
POKE V + 6,X — 256 + POKE V + 16, 
PEEK ( V * 16 ) DR 8 * GOTO 625 
POKE V + 6,X 5 POKE V + 14, 
PEEK ( V + 16 ) AND 247 
POKE V + 42,8 + POKE 2045, 215 + POKE V + 21, 
PEEK ( V + 21 ) OR 8 
IF PS = O THEN 675 
X = PEEK C V +6) + PS ቁ 12 + 
Y = PEEK ( V + 7 ) $ IF PEEK ( V + 16 ) AND 8 
THEN X = X + 256 
IF X < 20 OR X > 320 THEN POKE V + 21, 
PEEK ( V + 21 ) AND 247 = PS = © + GOTO 675 
IF X > 255 THEN POKE V + 6,X — 256 + 
POKE V + 16, PEEK ( V + 16 ) OR 8 * GOTO 675 
POKE V + 6,X + POKE V + 16, 


PEEK ( V + 16 ) AND 247 


IF PEEK ( V + 30 ) AND 2 THEN 677 
GOTO 690 
SC = SU + 10 5 MA = 4 = POKE V + 21, 


PEEK (V + 21 ) AND 247 
POKE 54276,0 = POKE 54275, 54 


POKE 54290,0 
GOTO 55 
POKE 2040,218 * SH = 0 


PEEK ( V + 21 ) AND 251 


POKE 54277,143 


a 
- 


- 
т 


PS = O 


POKE 54272,75 
POKE 54277,74 5 POKE 54276,129 


5 POKE V + 21, 


a 
т 


POKE 54276,0 + 


POKE 54273,5 + POKE 54272,155 + POKE 54276, 129 
s FOR I = 1 TO 2000 + NEXT 

LI = LI — 1 5 I = PEEK ( V + 30 ) 5 
POKE V + 21, РЕЕК ( V + 21 ) AND 254 + 
POKE V,20 : POKE V + 1,99 

POKE V + 16, PEEK ( V + 16 ) AND 254 ፥ DI = 0 

IF LI > O THEN POKE 2040,16 : POKE V + 21, 
PEEK ( V + 21 ) OR 1 * I = PEEK ( V + 30) : 
GOTO 55 

POKE 54273,0 + POKE 54272,0 + POKE 54287,0 + 
POKE 54286,0 

POKE V + 24,20 s POKE V + 21,0 * PRINT " [2 154 
HARD , LINES" 

PRINT " ጩ ሀባ [el መ Z3 YOU . SCORED" ነ SC 

PRINT "(e (m BATHE „ MARTIANS „WILL , OVER . RUN 
a EARTH" 

PRINT " [e] (el (е ANOTHER . GAME?" 

GET ልቆ + IF A$ = "Y" THEN POKE Y + 24,28 + 
PRINT "K3"; + GOTO 15 
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1045 IF A$ < > "М" THEN 1040 
1050 POKE V + 22, PEEK ( V + 22 ) AND 239 
1060 END 
10000 DATA 3,192,0,0,64,0,1,64,0,1,80,0,3,84,0 
,15,85,64,5,85,80,5,85,80,1,85,64 
10005 DATA 1,85,0,0,252,0,0,136,0,2,10,0,8,0,128 
,32,0,32,32,0,8,32,0,8,32,0,8 
10010 DATA 32,0,8,32,0,8,136,0,34,99 
10015 DATA 60,0,0,4,0,0,20,0,0,21,0,0,53,64,0, 245 
,84,0,85,85,0,85,85,0 
10020 DATA 21,84,0,21,80,0,15,192,0,8,128,0,8,128 
,0,32,32,0,32,32,0,128,8,0 
10025 DATA 128,8,0,32,8,0,32,8,0,8,8,0,34,34,0,99 
10030 DATA 0,3,192,0,1,0,0,1,64,0,5,64,0,21,192 
,1,85,240,5,85,80,5,85,80,1,85,64 
10035 рата 0,85,64,0,63,0,0,34,0,0,160,128,2,0 
,32,8,0,8,32,0,8,32,0,8,32,0,8 
10040 DATA 32,0,8,32,0,8,136,0,34,99 
10045 DATA 0,0,60,0,0,16,0,0,20,0,0,84,0,1,92,0 
,21,95,0,85,85,0,85,85,0,21,84 
10050 DATA 0,5,84,0,3,240,0,2,32,0,2,32,0,8,8,0 
,8,8,0,32,2,0,32,2,0,32,8,0,32,8 
10055 DATA 0,32,32,0,136,136,99 
10060 DATA 0,0,0,0,0,0,0,0,0,64,0,4,20,0,80,1 
,1,0,0,68,0,0,32,0,0,32,0,0,168,0 
10065 DATA 2,102,0,2,170,0,3,239,0,2,238,0,0 
,168,0,0,168,0,0,100,0,1,205,0 
10070 DATA 4,0,64,4,0,64,17,1,16,99 
10075 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1 
,0,4,68,64,16,32,16,64,32,4,0,168,0 
10080 DATA 2,102,0,2,170,0,3,239,0,2,238,0,0 
,168,0,0,168,0,0,100,0,1,205,0 
10085 DATA 4,0,64,4,0,64,17,1,16,99 
10090 DATA 0,0,0,0,0,0,0,0,0,192,32,12,48,32 
, 48,12,32,192,3,35,0,0,84,0,0,84,0 
10095 DATA 170,86,168,170,86,168,0,84,0,0,84 
,0,3,35,0,12,32,192,48,32, 48 
10100 DATA 192,32,12,0,0,0,0,0,0,0,0,0,0,0,0,99 
10105 DATA 255,204,255,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
10110 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0,0,0,0,0,0,0,0,0,0,99 
10115 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0,0,0,0,0,0,12,0,0,15,0,0 
10120 DATA 15,195,192,15,255,240,42,170,170 
,2,250,168,0,254,0,0,252,0,3,240,0 
10125 DATA 3,192,0,3,0,0,0,0,0,99 
10130 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0,0,0,0,0,0,0,0,48,0,0, 240 
10135 DATA 3,195,240,15,255,240,170,170,168,42 
,175,128,0,63,0,0,63,0,0,15,192 
10140 DATA 0,3,192,0,0,192,0,0,0,99 
10145 DATA 0,0,0,0,8,0,2,8,8,0,8,32,0,42,128 
,0,174,160,2,239,128,42,255,160 
10150 DATA 11,255,224,2,255,224,2,255,128,2 
,190,0,8,186,128,0,184,32,0,40,0 
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10155 DATA 0,32,0,32,32,0,0,0,128,2,0,2,0,0,0,0,0,0,99 

10160 DATA 255,195,195,195,195,195,195,255,60 
,60,24,126,24,24,102,102 

10165 DATA 255, 255, 255, 255, 255, 255, 255, 255, 12 
,51,192,48,12,51,51,192 

10170 DATA 0,0,192,48,204,6,3,0,0,0,0,3,12,48,207,0 

10175 DATA 0,0,0,128,128,192,224,240,0,0,0,0,1 
,1,1,3,240,248,252,252,252, 252 

10180 DATA 254,255,2,3,7,7,15,31,127,255,0 
,105,85,85,85,85,85,255 


CHEXSUM 
@=422 12021958 2384-2818 
l-5935 1222232347 IAMm-27981 
2=3411 123212344 210-2830 
39-3847 18523548 40n-1856 
1759555 127-2323 402-3378 
15-5838 120-3814 405-4348 
EB-4331 132-2028 486-1805 
25=8416 135-3241 487-3956 
30-6312 1480242336 408 =2263 
35= 7096 142=276n dim-3qar 
Ja=8041 143-2676 ono-i1444 
45= 1945 145=2466 Sa5=270 
5080-4595 150=2762 510=36407 
52=5663 155=3158 21354125 
53:3332 1560-2165 520=23956 
55=4534 16 5=23=1 2523:3311 
56=1Ø56 170-2317 930-3982 
57-1063 20022763 535=1739 
2:984 20523158 сай-5йт 
En-3338 2i10-2260 250-3148 
63:3375 215-3351 555=2687 
va=3571 22A=2317 360=2683 
75=3413 25A=4M23 565=1818 
80-3103 255-4883 252702383 
65=1036 257-3944 a7 5-488 
380-1154 26eEn-3323 590=1824 
95=1691 2865-4201 EBR-3384 
100-1111 PTB-ZB4a EA5=4352 
101-5618 272=1192 610=2250 
1As-3632 275=421Ø E15=4736 
110-3738 220-3048 620=2310 
115=4324 285-4744 625=2931 
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1800=4131 
1005-3207 
1018-4756 
1812=2851 
1815-4538 
1A17=2393 
1820=2746 
1025=1409 
1434=3818 
id35-1478 
184Ø=297 1 
1645=1182 
1850-1573 
106ӣ= 129 
19000=4313 
10005-4065 
iġgim-1477 
10015=340D7 
10020=25805 
19025=2246 
1009738=4426 
10035=3933 
10040-21477? 
10945-4041 
12050-42798 
18055=1219 
ipeea-4112 
10065-3711 
19Ø7Ø= 1425 
10075-=94252 


18080-3711 
1AA85=1425 
10080-24137 
18Ø95=356 1 
18180-2118 
11й1й5-4 353 
121 12й-37ЕЕ 
18115=4A92 
lø 122=4058 
18125=1326 
1813Ø=42A5 
LA L3S=4A85 
18140-14352 


ርህ 
= 0 


ሮኃ 
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Castle of Doom 


Explore the rooms within the castle walls, look for treasure and try 
to avoid the slime monsters and killer robots. 


Points are gained by moving over question marks and killing monsters or 
robots with your Proton gun. 


As you move off the screen from one room you are presented with 
another. Move back and you return to the same room but now with 
different contents! 


You are killed if you touch the electrified walls or any of the monsters. 
Some monsters are faster than others and the robots are very 
dangerous. 


Controls are: 
'W' up 'D' right 
X down ‘A’ left 
'S' tofire vour gun 
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PROGRAM STRUCTURE LINES 
INITIALIZATION 0 — 50 
READ KEY PRESSED, GET POSITION OF PLAYER 55 


MOVE PLAYER HORIZONTALLY, CHECKING FOR 56 — 70 
DOORS 


MOVE PLAYER VERTICALLY, CHECKING FOR 75— 80 
DOORS 

CHECK IF PLAYER HIT WALL OR MONSTER 80 --- 110 
OR QUESTION MARK 

INCREASE SCORE IF HIT QUESTION MARK 115— 125 

HAS PLAYER FIRED2 150 

SET UP SHOT 151 — 162 

MOVE SHOT UNTIL HITS SOMETHING OR 170— 198 


DISAPPEARS. IF HIT WALL EXIT, IF HIT 
MONSTER INCREASE SCORE AND EXIT 


TURN OFF SHOT SOUNDS 199 
IF MONSTER ONE EXISTS THEN MOVE IT 200 — 290 
IF MONSTER TWO EXISTS THEN MOVE IT 300 — 390 
TO MAIN LOOP AGAIN 400 


SUBROUTINE TO GENERATE NEW ROOM, CREATE 1000— 1200 
TWO NEW MONSTERS AND A QUESTION MARK 
(RANDOMLY) 


PLAYER KILLED, IF NO. OF LIVES LEFT 2000 — 2025 
EQUALS 0 THEN END GAME. 
ASK PLAYER IF WANT TO PLAY AGAIN 


DATA 1000 — 12120 
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PLACE TO READ KEY PRESSED FROM 


ROOM NUMBER 
KEY PRESSED 


L1 = LIVES LEFT 
SC 


KB 
K 


VIDEO CHIP 
SCORE 


VARIABLES 


V 
R 


TEMPORARY STORAGE 


OFFSET TO MOVE MONSTERS 


DI = DIRECTION OF MOVEMENT 


YX, YY, B$, DS 


Y 


X 


HIGH X — BIT FOR SPRITES 


SHOT IN PROGRESS 
TYPE OF MONSTER 2 
CONTAINS ROOM DATA 


М1 = TYPE OF MONSTER 1 


I, A, B, U 
S1, S2 


B 

SH 
M2 
A$ 


SPRITE 


SPRITE 


CREATURE 1 


PLAYER 


SPRITE 


SPRITE 


CREATURE 3 


CREATURE 2 
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CASTLE OF DOOM 


ዕ 


68 


70 


POKE 55, 255 : POKE 56,47 : V = 53248 : 
FOR I = 12544 TO 12551 + POKE 1,0 : NEXT + 
POKE V + 32,0 

POKE V + 33,0 + FOR I = 12288 TO 12319 : READ A 
5 POKE І,А + NEXT : POKE 54296,15 

POKE V + 24,28 + POKE V + 22, PEEK ( V + 22 ) 
OR 16 $ PRINT "LC" + FOR I = 12352 TO 12991 + 
READ A : POKE I,A 

NEXT = POKE V + 37,10 

DIM AS (24): R = O 
POKE 54292,0 

FOR I = O TO 24 + READ ልቆ ( Г) + NEXT + 
LI = 5 5 KB = 197 2 SC = O 

POKE V + 16,0 ፥ POKE V,150 : POKE V + 1,120 + 
POKE V 4 39,6 + POKE V + 28,15 + 
POKE 2040,193 г DI = O 

POKE V 4 40,2 

GOSUB 1000 = SH = O 

К = PEEK ( KB ) + A = PEEK 
*s8-(kK=18)%8 в: B 


POKE V + 38,5 
POKE 54278,0 ፥ 


o ቁ 


су) + CK = 10 D 


IF К = 10 THEN DI = 1 
IF K = 18 THEN DI = O 
POKE 2040,193 + DI 
IF А < О AND B THEN B = О * А = 252 
IF А > 255 AND 8 = O THEN B = 1 š ñ = O 
IF B AND A > 60 THEN POKE V + 16, 
PEEK ( V + 16 ) AND 254 + POKE V,20 > 


R= К + 1 $ GOTO 50 

IF B = O AND А < 20 THEN POKE V + 16, 
PEEK ( V + 16 ) OR 1 РОКЕ V,60 5 R = R - 1 
5 GOTO 50 

POKE VA + POKE V + 16, PEEK C V + 16 ) ОК B = 
IF В = O THEN POKE V + 16, PEEK ( V + 16 ) 
AND 254 

A = PEEK (C V + 1 ) + ( K = 9) $ B — 
( K = 23) $ 8 

IF ñ < 52 THEN POKE Y + 1,220 * R = R + 5 
GOTO 50 

IF А > 220 THEN POKE V + 1,52 >: R = R —- 5 
GOTO 50 

POKE Y + 1,0 + IF PEEK ( V + 31 ) AND i 
THEN 2000 

IF PEEK ( V + 30 ) AND 1 THEN 95 

GOTO 150 

IF PEEK ( Y + 30 ) > 128 THEN 115 

IF PEEK ( V + 30 ) AND 8 THEN 2000 

IF PEEK ( V + 50 ) AND 4 THEN 2000 


de 


4)» 


GOTO 150 

SC = SC + INT ‹ RND ( ) ¥ Š + 1) ¥ 50 

POKE V + 21, PEEK ( V + 21 ) AND 127 Т = — 1 
IF K < > 15 THEN 200 


POKE 54276,0 = POKE 54277,204 = POKE 54273,137 
5 POKE 54272,45 + POKE 54276,33 
POKE 54290,0 + POKE 54291,136 + POKE 54287,69 = 
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PEEK ( V + 16 ) AND 1 


155 


154 
155 
140 


162 


170 


175 


180 


185 


190 


191 
192 


193 
194 


195 


198 


199 


200 
205 


210 
212 
215 
220 
225 
227 
230 
235 
247 
250 
251 


255 


POKE V + 16, PEEK ( V + 16 ) AND 253 
POKE 54286,149 : DS = 8 + SH = 1 + 
X = РЕЕК ( V ) + 24 ፥ IF PEEK ( 
AND 1 THEN X = X + 256 
POKE 54290,17 + IF DI THEN DS = - 
В = 0 IF X > 256 THEN B = 2 * X 
POKE V + 2,X * POKE V + 3, PEEK ( 
POKE V + 16, PEEK ( V + 16 ) OR 
POKE 2041,195 + DI 
POKE V + 21, PEEK ( Y 4 21 ) OR 2 
A = PEEK ( V + 2 ) + DS + В = PEEK ( V + 16) 
AND 2 + IF A < O AND B THEN A = 248 : B = 0 
IF ñ > 255 AND B = 0 THEN B = 2+ A = O 


< 


+ 16 ) 


mm < чо 
4 + y 4 
| 
N 
ርበ 
> 


POKE V + 2,ñ 3 FOKE V + 16, PEEK ( V + 16 ) DR B 


+ IF В = O THEN POKE V + 16, PEEK ( V + 16 ) 
AND 253 

IF PEEK ( V + 31 ) AND 2 THEN POKE V + 21, 
PEEK ( V + 21 ) AND 253 + GOTO 199 

IF ( А « 20 AND B = 0 ) OR ( A > 60 AND B) 
THEN POKE V + 21, PEEK ( V + 21 ) AND 253 + 
GOTO 200 

U = PEEK ( V + SO ) z IF ( U AND 128 ) THEN 
IF ( U AND 2 ) THEN 198 

IF U AND 2 THEN 194 

GOTO 198 

IF ( U AND 4 ) AND M1 < 5 THEN POKE V + 21, 
PEEK ( V + 21 ) AND 253 + SH = O + 
SC = SC + Mi 8 10 * МІ = 5 + GOTO 199 

IF ( U AND B ) AND M2 < 5 THEN POKE V + 21, 
PEEK ( V + 21 ) AND 253 * SH = 0 : 
SC = SC + M2 4 10 + M2 = 5 + GOTO 199 

GOTO 170 

POKE 54276,0 : POKE 54277, 72 + POKE 54273,4 + 
POKE 54272,73 + POKE 54276,129 

IF МІ = © THEN 300 

X = PEEK (V +4) * Y = PEEK (V 
IF PEEK ( V + 16 ) AND 4 THEN X 

YX = PEEK ( V ) = YY = PEEK ( V + 
IF PEEK ( V + 16 ) AND 1 THEN YX = YX + 256 

IF М1 > 4 THEN 275 

IF М1 = 4 THEN 250 

IF Mi = 3 AND RND ( 1 ) > .3 THEN 250 

X1 = X + ( X > YX ን $ 81 - CX < YX ን 8 81 $ 

) 


m Il + 


- 


Y1 = Y + ( Y > YY 151 - (Y < ሃሃ ) ቄ S1 
IF X1 > 255 THEN X1 X1 — 256 + POKE V + 16, 
PEEK ( V + 16 ) OR 4 = GOTO 235 
POKE V + 16, PEEK ( V + 16 ) AND 251 
POKE V + 4,X1 + POKE V + 5,Y1 
GOTO 300 


X1 = X + INT € RND ( 1 > € Š — 1 ) Ж SI 2 
ሃ1 = Y + INT ‹ RND ( 1 ) € Š — 1 ) Ж Si 
IF X1 < 20 OR Xi > 320 OR Yi < 52 OR Y1 > 220 


THEN X1 = X = Y1 = Y | 
РОКЕ V + 16, PEEK ( V + 16 ) AND 251 + 


IF X1 > 255 THEN X1 = Xi — 256 + POKE V + 16, 


PEEK ( V + 16 ) OR 4 
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POKE Y + 4,X1 + POKE V + 5,Y1 

GOTO 300 

IF М1 = 10 THEN 290 

POKE V + 41,1 + POKE V + 28, PEEK ( V + 28 ) 
AND 251 + Mi = Mi + 1 * GOTO 300 

POKE V + 28, PEEK ( V + 28 ) OR 4 + Ml = O + 
POKE V 4 21, PEEK ( V + 21 ) AND 251 

IF M2 = O THEN 400 

X = PEEK ( V + 6) Y = PEEK ( V 
IF PEEK ( V + 16 ) AND 8 THEN X 

YX = PEEK ( V ) 2 YY = PEEK ( V + 
IF PEEK ( V + 16 ) AND 1 THEN YX = YX + 256 

IF M2 > 4 THEN 375 

IF M2 = 4 THEN 350 

IF M2 = 3 AND RND ( 1 ) > .3 THEN 350 

X1 = አ + ( X > YX ን) ¥ S2- (X < YX) t 52 = 
Y1 = Y + CY > YY ) # 82 - C Y < YY) 8 52 

IF ХІ > 255 THEN X1 = X1 - 256 + POKE V + 16, 
PEEK ( V + 16 ) OR 8 : GOTO 335 

POKE V + 16, PEEK ( V + 16 ) AND 247 

POKE V + 6,X1 ፥ POKE V + 7,Y1 

GOTO 400 


= [| + 


7 
X 
) 


Х1 = X + INT CRND ( 1 ) ¥ 5— 1 ) ¥ 52 = 
Yi = Y + INT ( RND ( 1 ) % Š ፦ 1 ) ¥ 52 
IF X1 < 20 OR X1 > 320 OR Y1 < 52 DR Y1 > 220 


THEN X1 = Хе Yi = Y 

POKE V 4 16, PEEK ( V + 16 ) AND 247 5 
IF X1 > 255 THEN X1 = X1 - 256 ፥ POKE V + 16, 
PEEK ( V + 16 ) OR 8 

POKE V + 6,X1 = POKE V + 7,Y1 

GOTO 400 

IF M2 = 10 THEN 390 

POKE V + 42,1 : POKE Y + 28, PEEK ( V + 28 ) 
AND 247 + M2 = M2 + 1 + GOTO 400 

POKE V + 28, PEEK ( V + 28 ) OR B ፥ M2 = O + 
POKE V + 21, PEEK ( V + 21 ) AND 247 


GOTO 55 

AS = AS (R ) = B$ = "ОООО" = PRINT "4" = 
POKE V + 35,8 + INT ( R / 5 ) + POKE V + 21,0 
5 FOR I = 1 TO 20 

IF LEN ( A$ ) > = 4 THEN B$ = LEFT$ ( A$,4 ) = 


AS = RIGHTS с ñ$, LEN ( ñ$ ) - 4 D 
PRINT "Ej"; TAB( ( I- ) 82) 3-5 
D = VAL ( LEFT$ ( B$,2 ) ) ፥ 
U = VAL ( RIGHTS ( B%,2 ) ) 
IF D = O THEN 1025 
FOR J = 1 TO D + PRINT “ጋስ (6 BE BE" = NEXT 
PRINT “ БЗ (el (e] [ወ] [e] (€) (e) (61 (e) (e) Ced (ей Y (A (el 
[a (e) (al (e) (e) [el (e) ሀባ M"; TAB( C 1 - 1 ) * 2 D 
IF U > O THEN FOR J = 1 TO U * PRINT "JAO NB NM" 
s $ NEXT 
NEXT I 5 T = ፦ 1 + IF RND ( 1 > < .6 THEN 1065 
T = 0 = POKE V + 14,100 + RND ( 1 ) £ 150 
POKE V + 15,100 + RND ( 1 ) $ 50 = POKE V + 16, 
PEEK ( V + 16 ) AND 127 * POKE V + 46,2 
POKE V + 29, PEEK ( V + 29 ) OR 128 + 
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'POKE 2047,197 $ IF KE THEN 1055 
1055 POKE V + 21,128 * I = PEEK ( V + 31 ) + 
PEEK C V + 31 ) + PEEK ( V + 31 ) 
1060 IF PEEK ( V + 31 ) AND 128 THEN T = - 1 = 
POKE V + 21,0 
1065 POKE V + 21, PEEK ( V + 21 ) OR 1 = 
I = PEEK ( V + 21 ) с“: I = PEEK ( V + 20 ) 
1070 MI = О = М2 = O = IF RND ( 1 ) < .3 THEN 1110 
1072 POKE V + 4, RND ( 1 ) $ 236 + 20 = POKE V + 5, 
RND ( 1) $ 168 + 52 
1075 M1 = INT ( RND (1) * 4 + 1 ) = 


POKE 2042,198 + M1 * POKE V + 41,6 = 51 = 2 
1080 IF Mi = 2 THEN POKE V + 41,11 : SI = 6 
1085 IF Мі = 3 THEN POKE V + 41,9 : бі = 4 
1090 IF Mi = 4 THEN POKE V + 41,14 + S1 = 4 
1100 POKE V + 21, PEEK ( V + 21 ) OR 4 = 

I = PEEK ( V + 31 ) 
1110 IF RND ( 1 ) < .3 THEN 1150 
1112 POKE V + ይ, RND ( 1 ) X 236 + 20 = 

POKE V + 7, RND ( 1 ) $ 168 + 52 
1115 M2 = INT ( RND ( 1 ) £ 4 + 1 ) : 

52 = 2 


POKE 2043,198 + M2 + POKE V + 42,6 + 
= 6 


1120 IF М2 = 2 THEN POKE V + 42,11 + S2 
1125 IF M2 = 3 THEN POKE V + 42,9 62 = 4 
1130 IF M2 = 4 THEN POKE Y + 42,14 * S2 = 4 
1135 POKE V + 21, PEEK ( V + 21 ) OR 8 = 


I = PEEK ( V + 31 ) 

1150 PRINT “ЕЗ መ] [e] (ей (e) (a (a (a (a [a [ወበ [ወ] (е (a (a (a 
(ej (e) [e] (e) (e) [ሠ] (ед (el Іі"; * FOR I = 1 TO LI 2 
PRINT " |4B . “፥ ሩ NEXT 

1155 POKE V + 28, 15 

1200 RETURN 

2000 POKE V + 28, PEEK ( V + 28 ) AND 254 5 
POKE 54276,0 + POKE 54277, 145 ፥ POKE 54275,54 

2001 POKE 54272, 75 + POKE 54276,129 + POKE V + 39,1 + 
FOR 1 = 1 TO 2000 + NEXT 

2004 POKE V,150 + POKE V + 1,120 

2005 POKE V + 28, PEEK ( V + 28 ) OR 1 
POKE V + 39,6 + POKE V + 21,0 + 
R = О + IF LI > © THEN 50 

2010 POKE V + 24,20 : PRINT '' CQ GBHARD . LINES, a YOU 
a WERE , KILLED" 

2012 PRINT " (8 ጩ [el YOU „ SCORED"SC 

2015 PRINT " ጩ [el MBANOTHER „ GAME , ?" 

2017 POKE 54273,0 : POKE 54272,0 + POKE 54287,0 + 
POKE 54286,0 

2020 GET AS : IF A$ = "Y" THEN SC = O ғ LI = 3 + 
POKE Y + 24,28 + GOTO 15 

2025 IF A$ < > "N" THEN 2020 

2030 END 

10000 DATA 255,234,234,234,234,234,234,255,255 
,171,171,171,171,171,171,255 

10005 DATA 24,24,255,24,60,108,108,108,0,6,249,70,0 
50,0,0 

11000 DATA 0,0,0,0,21,0,0,21,0,0,4,0,0,170,0,2 
,170,138,2,42,164,2,42,0,2,42,0 


LI =LI- 1 >= 
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11005 


11010 
11015 


11020 


11025 
11030 


11035 


11040 


11045 


11050 


11055 


11060 


11063 


11070 
11075 


11080 


11085 


11090 


11095 


11100 


11105 


11110 
11115 


11120 


11125 
12000 


12005 


12010 
12015 


12020 


12025 


DATA 2,42,0,1,42,0,0,63,0,0,63,0,0,51,0 
,0,51,0,0,243,0,0,195,192,0,192,192 
DATA 0,192,192,0,240, 240,0,0,0,99 
DATA 0,0,0,0,84,0,0,84,0,0,16,0,0,170,0 
, 162, 170, 12B, 26, 168, 128,0, 168, 128 
DATA 0,168,128,0,168,128,0,168,64,0,252 
,0,0,252,0,0,204,0,0,204,0,0,207,0 
DATA 3,195,0,3,3,0,3,3,0,15,15,0,0,0,0,99 
DATA 0,0,0,0,0,0,3,0,0,0,32,0,12,168,0 


,194, 168,0, 12, 168,0,0,32,0,3,0,0,0,0 
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0,0,0, 0,0,0, 0,0,0,0,0,0,0 
DATA 99,0,0,0,0,0,0,0,0,192 ,0,8,0,0,42 
,48,0, 42, 131,0,42,48,0,8,0,0,0,192 
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
DATA 0,0,99,0,56,0,0,126,0,1,231,128,3, 

1,192,6,0,224,0,0,224,0, 0, 223 


DATA 0,1,192,0,3,128,0,7,0,0,14,0,0,28 
,0,0,56,0,0,48,0,0,48,0,0,48, 0,0,0,0 

DATA 0,0,0,0,48,0,0,120,0,0,48,0, 99, o 
,0,0, 0,0,0,0,0,0,0,0,0,0,0,48, 0,0, 206 

DATA 0,3, 3,15,252,3,3, 3, 3, 3,0, 206 00 
,48,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0 

DATA 0,0,0,0,0,0,0,0,0,0,0, 0,0,0,99 

DATA 0,0,0,0,0,0,0,0,192,0,3,48,0,12,0 
,12,12,0,48,42,0,12,170,128 

DATA 3,153,176,0,170,140,0,42,3,0,12 
,12,0,12,0,3,48,0,0,192,0,0,0, o: 0,0,0 

DATA 0,0,0,0,0,0,0,0,0,0,0,0,99,0,8,0 
,0,42,0,0,38,0,0,42,0,0,8,0,2,170,160 

DATA 2,46,32,2,46,32,3,42,48,2,21,32 
,2,42,32,0,42,0,0,34,0,0,128,128 

DATA 0,192,192,0,128,128,0,128,128,0 
»34,0,0, 34, 0,0, 162, 128, 2, 162, 160,99 

DATA 0,0,0,0,9, 92,0, 46,0, 0, 191, 128, 2 
, 110, 96, 194, 89, 96, 73, 89, 88, 75, 89, ВВ 

DATA 110,170, 174, 9, 89, 89, 2,89, 89, 2,89 
,97,0,174, 99,0, 191, 128,0,46,0 

DATA 0,8,0, 3, 84,0,0, 0, 0,0,0, 0,0,0,0,0,0,0,99 

DATA O 0,0, 0,0,0,0,0,0,0,0,16,0,0,16,0 
,0,64,0,1,2,0,4,8,0,1,8,0,4,2 

DATA 40,16,130,130,154,34,128,112,8,1 
,48,0,4,60,0,16,15,192,64,0,192 

DATA 16,0,252,4,0,0,16,0,0,64,0,0,99 

DATA 24002400050405040504030403040004000 
40004000400041009 

DATA 100910091009050405040504050405150004000 
40004000410091009100410041009 

DATA 1009 

DATA 10091009100910091009100910091009000 
900090009000900090024 

DATA 00240024002405040504050405040504000 
900090009000900090504050405040024 

DATA 24002400100910091009100910091000 
10001000100010001009 
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12030 


12035 


12040 


12045 


12050 


12055 


12060 


12065 


12070 


12075 


12080 


12085 


12090 


12095 


12100 


12105 


12110 


12115 


12120 


DATA 1009100910091009100910091009100 
200000000000000000024 

DATA 24002400050405040504050405040504000 
4000400040004050405041009 

DATA 10091009100910091009100910091009 
10001000100010001009 

DATA 10091009050405040504050405040504000000 
000000000003020302030203020024 

DATA 24002400240024002400240024002 
4000009000900090009 1009 

DATA 1009100910091009100910091009100 
9100010001000 10000024 

DATA 2400240003020302030203020302030200000000 
000000000302030203021009 

DATA 1009100910091009100410041004 1004000 
4000400040004 10041004100410041009 

DATA 1009100910091009 100910091009 100900 
000000000000000024 

DATA 2400240024002 40005040504050405040000000 
00000000005040504050405040024 

DATA 24002400240024002400240024002400000 
90009000900091009 

DATA 100910091009100910091009100910091000 
1000100010000024 

DATA 2400240003020302030203020302030200000 
0000000000003020302030203021009 

DATA 1009100910091009100910091009100900 
000000000000000024 

DATA 240024000504050405040504050405040 
50005000500050005040504050405041009 

DATA 10091009100910091009100910091009 
10001000100010001009 

DATA 1009100910091009050405040504050405 
0405040504050405040024 

DATA 24002400240024002400240024002400 
10001000100010001009 

DATA 10090302030203020302030215020302030 
003000300030003020302030203020024 


182 
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U.F.O. 


Another U.F.O. game with aliens attacking your craft. This one however 
contains a Machine Code routine to scroll the screen. 


Shoot down the attacking U.F.O.'s with one of your missiles. 
The game ends if you crash or if a U.F.O. gets past you. 
Your controls are: 

'W' up 

X' down 

'S' tofire 
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PROGRAM STRUCTURE 
INITIALIZE SPRITE 

PRINT GROUND 

MACHINE CODE ROUTINE 

GET CURRENT KEY 

IF NO UFO ON SCREEN GENERATE ONE 
IF CRASH — END 

IF UFO — MOVE UFO 

IF UFO HIT — GO DOWN 

IF UFO CRASH 

END 

IF KEY — 'S' FIRE 

IF SHELL FIRED — MOVE SHELL 

NEXT LOOP (GO TO 25) 

CLEAR SCREEN PRINT MESSAGE 
DATA 


VARIABLES 
CR = —1: NO UFO 
0: UFO 
1: UFO — HIT 
HI = HIGH SCORE 
SC = SCORE 
К = CURRENT KEY PRESSED 
Y = PLANE POSITION 
SH = SHELL FIRED OR NOT 
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LINES 


0 — 17 

20 

25 
30 — 35 
40 — 55 
60 — 65 
70 — 95 
100 

105 — 145 
150 

155 — 171 
175 — 190 
200 
1000 — 1030 


10000 — 10055 


U. F. D. 


O POKE 55,255 + POKE 56,44 
1 FOR I = O TO 35 * READ А + POKE 14 ¥ 1024 + I,A 
$ NEXT 
2 IF PEEK ( 53270 ) AND 8 THEN POKE 53270, 
PEEK ( 53270 ) — 8 
3 FOR I = O TO 126 * READ A 
NEXT + V = 53248 + MC = 
4 FOR I = O TO 126 + READ A 
2 NEXT 
6 FOR I = 0 TO 31 ፥ 
5 NEXT * HI = O 
7 POKE V + 32,6 : POKE V + 33,6 
10 POKE V + 37,3 s P 
POKE V + 24,28 
15 POKE 2040,13 + POKE V + 39,5 + POKE V,100 + 
POKE V + 1,100 £ POKE V + 21,1 + POKE V + 28,1 
17 POKE 2041,14 + POKE V + 40,5 + CR = - 1 += 
SH = — 1 + POKE 2042,240 + POKE V + 41,0 
20 PRINT "Kg la (a (a [el (ей (a [a [el [e] (e) [e] (a (el 
(e (el [e] [е] (e) [e] (ед (ел [е] (ей (A (е 2ABCC9A299BBACCCBAS AC 
JABBCADCBBBCAJJACCE' 3 
22 А = PEEK ( V + 30) 
25 SYS MC + IF PEEK ( V + 22 ) = 199 THEN 
POKE 2022, RND (1) 4 4 
= PEEK ( KB ) 
= PEEK ( V + 1) ፥ 
Y-Y-295 (К = 9) X ( Y > 45 ) + 
( K = 2 


5 POKE 832 + I,A + 
14 ¥ 1024 + KB = 197 
5 POKE 15 $ 1024 + I,A 


READ A = POKE 12 * 1024 + T,A 


+ POKE 54296, 15 
ОКЕ V + 38,2 * SC = о = 


A 

© 

A 
| 


5 ) ¥ CY < 234) #2 
36 IF Y > = 234 THEN 1000 
40 POKE V + 1,Y = IF CR > — 1 THEN 60 
45 IF RND ( 1 ) > „1 THEN 150 
50 POKE V + 21, PEEK ( V + 21 ) OR 2 + 
POKE V + 2,80 2 POKE V + 16, PEEK ( V + 16 ) 
OR 2 
55 POKE V + 3, INT ( RND ( 1 ) * 175 + 44 ) = 
CR = 0 
60 F = О 5 A = PEEK C V + 2 ) = 
B = PEEK ( V + 16 > AND 2 = ñ = ñ - 2 + 
IF ñ < O AND 8 THEN B = 0 ፥5 ñ = 254 F = 1 
65 IF ñ < O AND CR = O THEN 1000 


67 IF ñ < O THEN CR = — 1 = GOTO 150 

70 POKE V + 2,A * POKE V + 16, PEEK ( V + 16 ) OR B 
5 IFF THEN POKE V + 16, PEEK ( V + 16 ) - 2 

80 IF CR THEN 100 

85 A = PEEK (ሆህ + 5) + INT ( RND (1) ¥ 5-1) 

¥ 5 5 IF ñ < 44 THEN A = 44 

90 IF А > 235 THEN A = 235 

95 POKE V + 3,A = GOTO 150 

100 POKE ( V + 5) , PEEK (C V + 5) + 2: 
IF PEEK ( V + 5 ) < 255 THEN 150 

105 POKE V + 28,3 + POKE V + 40,8 = POKE 2041,241 

110 POKE 54276,0 = POKE 54277,15 = POKE 54273,72 * 
POKE 54272,169 > POKE 54276,129 

115 FOR I = 1 TO 2000 = NEXT 
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140 POKE V + 21, PEEK ( V + 21 ) - 2 + POKE V + 28,1 


145 CR = — 1 5 POKE V + 40,5 5 POKE 2041,14 
150 A = PEEK (C V + 30 ) 5 IF A = 3 THEN 1000 
155 IF A = 6 AND CR = O THEN SH = — 1 5 CR = 1: 


POKE V + 21, PEEK ( V + 21 ) - 4 + 
A = PEEK ( V + 30 ) + SC = SC + 10 
160 IF K < > 13 THEN 175 
165 SH = 1 $ POKE V + 21, PEEK ( V + 21 ) OR 4 
POKE V + 4, PEEK ( V ) + 10 > POKE V + 5, 
PEEK ( V + 1) 
170 IF PEEK ( V + 16 ) AND 4 THEN POKE V + 16, 
PEEK ( V + 16 ) — 4 
171 POKE 54276,0 + POKE 54277,31 ፥ POKE 54273,8 + 
POKE 54272,147 + POKE 54276,129 
175 IF SH < 1 THEN 200 
180 A = PEEK ( V +4) * B = PEEK ( V + 16 ) AND 4 
5 А = А + 3 + IF A > 255 THEN В = 4 ፡ А = 1 
185 IF А = 80 AND В THEN POKE V + 21, 
PEEK (V + 21 ) — 4 + BH = - 1 «s 
POKE 54273,0 + POKE 54272,0 + GOTO 200 
190 POKE V + 4,A = POKE V + 16, PEEK ( V + 16 ) 
OR B 
200 GOTO 25 
1000 POKE 2040,241 : POKE V + 39,8 * POKE 54273,72 ፥ 
POKE 54272,169 = POKE 54277, 47 
1001 POKE 54276,0 + POKE 54276,129 : 
FOR I = 1 TO 3000 ፥ NEXT + POKE 54273,0 + 
POKE 54272,0 
1005 POKE V + 24,20 + POKE V + 21,0 + 
POKE V + 22,200 : PRINT "EJ I4YOU , SCORED" ; SC 
5 IF SC > HI THEN HI = SC 
1010 PRINT "HI a SCORE , 15"; НІ + PRINT “ [е] (e) ге WANT 
a ANOTHER , GAME?" 


1020 БЕТ A$ г IF A$ = "Y" THEN 10 
1025 IF ñ$ < > "N" THEN 1020 
1030 END 


10000 DATA 174, 22, 208, 202, 224, 191, 240, 4, 142, 22 
, 208, 96, 162, 199, 142, 22, 208 

10005 DATA 162, 0, 189,193, 7, 157, 192, 7, 252, 224 
, 40, 208, 245, 169, 32, 141, 251 , 7, 96 

10010 DATA 0,0,0,0,0,0,0,0, 0, 0,0, 0, 128,0,0,128 
,0, 0, 224, 0,0, 232, 1,0, 234, 149, ሬዳ 

10015 DATA 170,170, 168, 63, 170, 255, 22, 149, 80, 10 
„160, 0, 42, 148, 0, 42,0,0,0,0,0,0,0,0 


10020 DATA 0,0,0,0,0,0,0,0,0,0,0,0,99 
10025 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0,0,0,0,0,0,0, 0, 24, 0,0, 255, 0 
10030 DATA 7, 255, 224,9, 36, 144, 15, 255, 240, 1 
, 255, 128,0, 126,0,0,0,0,0,0,0,0,0,0,0 
10035 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0,0, 0,0, 0,0,0,0,0,0,0,0,0 
10040 DATA 0,0,0,0,0,0,0,0, 194,0, 0,63, 128,0 
,194,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
10042 DATA 0,0,0,0,99,0,0,0,0,12,0,0,63,0,0 
,59,0,0,59,0,252,59,0,59,251,240 
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10044 DATA 58,171,176,14,170,255,3,170,171 
,0,250,172,0,234,240,0,59,0,0,59,0 

10046 DATA 0,238,192,3,174,192,14,190,192,14 
,206,192,59,5,0,0,0,0,0,0,0 

10050 DATA 0,0,0,0,0,98,247,255,0 
,0,0,4,14,31,127,255 

10055 DATA 0,0,16,24,60,124,254 
,255,0,0,0,0,4,46,127,255 


CHEXSUM 
A=98A 135-1852 
1223538 1390-1737 
2=2477 155-5940 
324338 120-1032 
4=2427 1€5-4584 
G=2345 1702-2758 
FZ ES 
ip-2522 175-358 
lr. сдава 122-4333 
17-3384 152-5841 
20=5213 138-8183 
22-895 209=473 
m; =P 776 18280-3416 
39-639 123961 =3759 
== =ዓ=ሯዖ 198555838 
25=1 16= 15691, 22223 
‹«ም=1677 1026=1243 
451111 ¡625-1184 
>£=38280 188=1239 
=5=22952 immnpa-2563 
ee-5438 12865=3368 
Es-1438B 10010-4003 
67=1791 10013-4393 
28-4255 1AA2Ø=1533 
ee-6E12 19925=4212 
SSA :аазай<4 126 
28=1154 18955=3861 
SG5= 1298 12,429 24211 
:па-зате 18nd2=32812 
105-1325 19M44=2955 
110-2378 13046-3482 
і15=1020 і 2050 =2424 
149-2122 1ABES-2611 TOTAL- 136684 
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Galaxy Raid 


A fleet of aliens looms above you, one by one they dive to attack you with 
their guided missiles. 


You must avoid their missiles and destroy the alien ships. The main 
group is protected by a force field and only diving craft are vulnerable to 
your counter-fire. If you destroy the fleet another appears to replace it. 


Y our controls are: 
‘Z’ for left 
‘C’ for right 
‘M’ to fire a missile 
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PROGRAM STRUCTURE 
INITIALIZATION 
PUT RAIDERS 


DISPLAY SCORE 

GET KEYBOARD CHARACTER 

MOVE ACCORDING TO KEY 

FIRE IF (SPACE BAR) PRESSED 

TEST IF PLAYER HIT 

TURN OFF SOUND 

MOVE PLAYER'S MISSILE UP SCREEN 


CHECK IF PLAYER'S AND RAIDER'S 
MISSILES COLLIDE 


UPDATE SCORE 

ELIMINATE PLAVER'S MISSILE IF PAST RANGE 
HOME RAIDER'S MISSILE TOWARD PLAYER 
PLAY MUSIC BETWEEN GAMES 

CHECK IF RAIDER'S MISSILE HIT PLAYER 
DATA 

VARIABLES 

S = SCORE 


SP = NUMBER OF RAIDERS LEFT 
SC = SCREEN REFERENCE POINT 


LINES 
0-9 

10, 612, 614, 
700 — 720 
500 

510 

520 — 530 
535, 900 — 905 
545 

546 

570 

571 


575 
580 
582 — 584 
800 — 850 


1000 — 1040 
9000 — 10070 


X1 = HORIZONTAL POSITION OF PLAYER'S MISSILE 


Y1 = VERTICAL POSITION OF PLAYER'S MISSILE 


PE = VALUE PEEKED FROM KEYBOARD 
Р = HORIZONTAL POSITION OF PLAYER 
| = LEFT HAND END OF RAIDER FORMATION 
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GALAXY RAID 


O PRINT "M MFGHIJK å å a å å å å BšPORST" > 
POKE 53280,0 + POKE 53281,0 + V = 53248 


1 PRINT " [AN MINO LEN" + POKE V + 24,28 + 
FOR I = 12288 TO 12463 5 READ Q =: POKE 1,0 + 
NEXT 


2 FOR I = 12544 TO 12551 + POKE 1,0 + NEXT 
3 POKE 54273,0 + FOR I = 12672 TO 12751 + READ Q ፥ 
POKE 1,Q + NEXT 
4 POKE V + 21,7 + POKE 2040,208 + POKE 2041,209 + 
POKE V + 39,8 + POKE V + 40,7 + POKE 2042,210 
5 POKE V + 41,2 5 FOR I = O TO 190 * READ Q + 
POKE 13312 + 1,0 + NEXT 
б P = 120 + S = O + БР = 
SC = 1024 + POKE V,P ፥ POKE V 
7 X = 5 + INT RND ( 1 ) £ 20 ) ፥ Y = 120 + 
X2 = X : Y2 = 160 
в БОБОВ ВОО : POKE 54277,0 + POKE 54278,240 + 
| GOSUB 700 
5 POKE V + 38,5 + 
PE = PEEK ( V + 31 ) 
В 5 PRINT " ES [e] [eq [e] " š 
TAB( I — 1 ) Се * PRINT " EH (eq (el fel"; TABC I ) 
20 GOSUB 500 
60 PRINT * Eg መ] (6) (el"; TAB( I ) ВФ 
70 GOSUB 500 
75 NEXT 
100 IF 8P > 1 THEN SP = SP - 1 
110 FOR I = 17 TO 1 STEP - 1 = PRINT " E3 [e] (8 Ге“; 
TAB( I + 1) ፣ርቆ = PRINT " EJ [eq [el (e9"; TABC Г) 
5 АФ 
120 GOSUB 500 
160 PRINT “ 53 ወ0 (6 mM"; TAB( I ) ВФ 
170 GOSUB 500 
180 NEXT 
190 GOTO 10 
500 PRINT " å BI El BI El BI BI 6] BI E] El BI BI El El El 
El El EJ El El E] E] PS"; S; ЯШ” 
502 IF SP < 2 THEN PRINT '' 
505 FOR J = 1 TO INT ( SP ) 
510 PE = PEEK ( 197 ) 


520 IF PE = 12 AND P > 35 THEN P = P - 4 
350 IF PE = 20 AND P < 320 THEN P = P + 4 
935 IF VI = O AND PE = 36 THEN GOSUB 900 


537 IF Р > 255 THEN POKE V,P — 256 = POKE V + 16, 
PEEK ( V + 16 ) OR 1 + GOTO 545 

540 POKE V,P + POKE V + 16, PEEK ( V + 16 ) AND 254 

545 IF PEEK ( V 4 31 ) = 1 THEN 1000 

546 POKE 54273,0 

560 IF Y1 = O THEN 581 

570 Yi = VI - é * POKE V + 3,Y1 

571 IF PEEK ( V + 31 ) < > 2 THEN 580 

572 POKE 54296,15 + POKE 54276,0 ፥ POKE 54276,129 

573 IF PEEK ( V + 16 ) AND 2 THEN POKE V + 16, 
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PEEK ( V + 16 ) OR 4 * GOTO 575 
574 POKE V 4 16, PEEK ( V + 16 ) AND 251 
575 POKE V + 4, PEEK ( V + 2) = POKE V + 5,ሃ1 + 
Y1 = 0 5 8= S + 30 - Y / 40 
576 POKE SC + X + Y,32 : POKE SC + X + Y + 1,32 + 
Y = 840 
578 FOR Z = 40 TO 1 STEP - .6 : POKE 54275,7 ፥ NEXT 
* POKE 54275,0 = POKE V + 4,0 + POKE V + 5,0 
580 IF VI < 90 THEN Y1 = О : POKE Y + 2,0 5 
POKE Y + 3,0 
581 POKE SC + X2 + Y2,32 
582 IF RND ( 1 ) < .1 THEN X2 = X2 + 
(X2>(P-20)/8)- 
( X2 < ( P — 20) / в» 
585 Y2 = Y2 + 40 + IF Y2 > 840 THEN Y2 = Y + 40 5 
х2 = x 
584 POKE CO + X2 + Y2,3 + POKE SC + X2 + Y2,21 
600 NEXT * DX = X + DY = Y 
601 IF DY < 680 OR RND ( 1 ) € .6 THEN DY = DY + 40 
602 IF DY < 360 AND DX > 20 AND DX < 38 THEN 
DX = DX + 1 
604 IF DY < 360 AND DX < 21 AND DX > 1 THEN 
| DX = DX — 1 
605 IF DY > 400 AND DX > 20 AND DX > 1 THEN 
DX = DX - 1 
606 IF DY > 400 AND DX < 21 AND DX < 38 THEN 
DX = DX + 1 
408 IF DY < 840 THEN 620 
609 AL = AL — 1 + IF AL = © THEN AL = 6 ፥ DY = 120 
5 DX = I + INT ( RND C 12 t 6) t 4 + 
SP = SP - 1 + GOSUB 700 
410 DX = INT C RND (C 1) € 60 € 4 + 1 + 
IF MIDS ( A$,DX,2 ) =" „ ኢፌ" THEN 610 
412 A1$ = LEFT$ ( A$,DX - 1 ) + " „ a" + RIGHTS 
( A$,24 — DX - 1 ) = A$ = 01% 
414 Al$ = LEFT$ ( B$,DX - 1 ) + " „ 4" + RIGHTS 
( B$,24 — DX — 1 ) è ВФ = 01% 
615 POKE 54296,5 ፥ POKE 54276,0 + POKE 54276,17 + 
POKE 54273,50 + FOR Z = 1 TO 100 5 NEXT 
616 POKE 54273,0 
619 DY = 120 * DX = I + DX - 1 
620 POKE SC + Y + X,32 + POKE SC + Y + X + 1,32 
625 POKE SC + DY + DX,4 + POKE SC + DY + DX + 1,5 + 
POKE CO + DY + DX,4 + POKE CO + DY + DX + 1,4 
626 X = DX + Y = DY 
630 RETURN 
700 POKE 54276,8 + POKE 54276,0 + POKE 54276,33 
705 A$ = "JIA a . PAL .ӘА, „A. DA å ,ӘА,." 
B$ = "BC, „BC „ „ВС, „ВС, „ВС, „ВС. „ 
710 C$ = * . ж. ሕ. ж. a а. a de ሒሐ а. а. ж ж м. үч үч ሔ ж. 
712 FOR Z = 1 TO 20 + POKE 54275,2 * NEXT + 
РОКЕ 54275,0 
720 RETURN 
800 POKE 54276,0 + POKE 54277,0 + POKE 54278,0 


802 POKE 54296,15 + POKE 54277,190 2 POKE 54278,64 + 
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902 

905 
1000 
1005 
1007 
1010 
1020 
1030 
1032 
1035 
1040 
9000 
9010 
9020 
9030 
9040 
9050 
7060 
9070 
9075 
9080 
9090 


9095 
9100 


9110 


POKE 54276, 17 


FOR I = 1 TO 10 STEP .05 + POKE 54273,1 = NEXT 
FOR I = 1 TO 30 STEP .2 * POKE 54273,1 = NEXT 
FOR I = 50 TO 20 STEP — „2 2 POKE 54273,1 + 

NEXT 
FOR I = 80 TO 140 STEP 2.5 = POKE 54275,1 = 

NEXT 
FOR I = 200 TO SO STEP ፦ $ + POKE 54273,1 + 

NEXT 
FOR I = 10 TO 40 STEP .2 * POKE 54275,1 = NEXT 
FOR I = 80 TO 140 STEP 2 = POKE 54275,1 = NEXT 
FOR I = 10 TO 1 STEP — 04 + POKE 54273,1 = NEXT 
FOR I = 1 TO 10 STEP . 05 = POKE 54273,1 = NEXT 
FOR I = 100 TO 70 STEP — 2 = POKE 54273,1 * NEXT 
POKE 54275,0 5 RETURN 


POKE 54296,10 + POKE 54276,0 + POKE 54276,129 
IF Р > 255 THEN POKE V + 2,P - 256 + 

POKE V + 16, PEEK ( V + 16 ) OR 2 ፥ GOTO 905 
POKE V + 2,P = POKE V + 16, PEEK ( V + 16 ) 

AND 253 
VI = 180 + FOR Z = 1 TO 30 STEP 2 + 

POKE 54273,Z + NEXT + RETURN 
POKE V,O + POKE V + 1,0 + POKE V + 2,0 + 

POKE V + 3,0 + POKE V + 5,200 
IF Р > 255 THEN POKE V + 4,P - 256 ፥ 

POKE V + 16, PEEK ( V + 16 ) OR 4 =: GOTO 1010 
POKE V + 4,P * POKE V + 16, PEEK ( V + 16 ) 

AND 251 
POKE 54296,15 + POKE 54276,0 : POKE 54276,129 


FOR I = 1 TO 100 = POKE 54273,1 = NEXT 
FOR I = 100 TO 50 STEP — 2 5 POKE 54273,1 * NEXT 
FOR I = ВО TO 1 STEP ፦ .4 = POKE 54273,1 = 


NEXT + POKE 54273,0 
POKE V + 4,0 s POKE V + 5,0 = POKE V + 29,0 
RUN 
DATA 96,125, 31,15,2,1,0,0,3, 31,124, 248 
, 160, 192, 128,128 
DATA 0,0,127,31,6,1,0,0,0,0, 127 
, 252, 176, 192, 128, 128 
DATA 28,14,7,3,2,1,0,0, 28, 56, 112 
» 224, 160,192, 128,128 
DATA 255, 192, 192, 192, 207, 195, 195, 255, 255 
,0,12,12,51,63,51,51 
DATA 0,0, 48, 48, 48, 48, 48,63,0,0,12,12,51,63,51,51 
DATA 0,0,51,51,12,12,51,51,0 
DATA 0,0,51,51,27,27,12,12,12,48,48,96,96,192,0 
DATA 0,0,60,51,51,60,54,51,0,0,63,12,12,12,12,63 
DATA 0,0,60,51,51,51,51,60 
DATA 0,243,195,195,243,51,51,243,0,207 
,12,12,12,12,12, 207 
DATA 0, 207, 204, 204, 207, 204, 204, 204, 0, 15, 204 
, 204, 15, 204, 204, 207 
DATA 0,0, 48, 0,0, 48, 0,0, 0, 24, 126, 60, 24, 24, 24, 24 
DATA 0,120,126, 102, 102, 102, 126,0,0, 24 
, 120, 24, 28, 28, 126,0 
DATA 0,126, 4, 24, 94, 102, 126,0,0 
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9120 


9130 


9140 


10000 


10010 


10020 
10030 


10040 


10050 


10060 


10070 


,30,126,6,62,6,126,0 

DATA 0,96,108,108,126,28,28,0,0 
,14,126,96,24,6,126,0 

DATA 0,126,112,126,102,102,126,0,0,126 
,102,12,24,48,48,0 

DATA 0,126,102,24,102,102,126,0,0,126 
,102,102,126,14,14,0 

DATA 0,12,0,0,30,0,0,63,0,0,63,0,0,63,0 
,0,63,0,0,30,0,0,12,0,0,30,0,0,63,0 

DATA 8,255,196,9,255,228,9,255,228,11 
,127,180,15,127,188,14,63,28,12,12,12 

DATA 8,30,4,0,63,0,0,63,0,0,0,0,99 

DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

DATA 0,0,0,12,0,0,12,0,0,30,0,0,30,0,0 
,12,0,0,12,0,0,30,0,0,63,0,0,109, 128 

DATA 99,0,0,0,0,8,0,2,8,8,0,8,32,0,42,128,0 
,174,160,2,239,128,42,255, 160 

DATA 11,255,224,2,255,224,2,255,128,2,190 
,0,8,186,128,0,184,32,0,40,0 

DATA 0,32,0,32,32,0,0,0,128,2,0,2,0,0,0,0,0,0 


CHEXSUM 


90-3689 585-1853 68122488 
124141 5180-756 5ድ==ጆ=81 
2=1765 528-1844 524=222= 
3=£732 520=:992 Бп = 2828 
4=4129 525-1654 cas=2297 
5+2929 527=2742 ሮር5=1885 
5:=3472 z48-enan cos-5e634 
>=2997 545-1456 c£ 10-3410 
3=2841 546-553 A12=3614 
a-EATI SEB=851 614-3614 
18-2883 ST80-1443 815-2699 
¿2=299 E7T171582 Е 16=528 
£9=246 5723-1968 B19=1559 
70-258 573-3412 EEB-2342£ 
75-131 574=1572 525=5514 
190= 1486 575=3634 826-938 
110-3464 STE-PESS E3Ø=143 
129=233 STEE41B1 708-1837 
160-2486 59Ø=2447 ¿as=4244 
170-293 E£1=1118 718-1549 
188-131 522=4125 712=2213 
198=472 322-8855 FOS=i43 
5MA=1461 534=2275 220=1765 
5ø2=954 FØR=1 134 2eL2=27 10 
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Invaders 


Battle the invaders with your base on the ground. The arcade classic 
should have you addicted in no time at all. 


Controls are: 'Z left, 'C' right and 'M' to fire. 
This program contains a large amount of machine code to control the 
invaders. Even if you don’t as yet fully understand what is being done, 


don't worry. Just key the lines in carefully — especially the data lines. 
Check them thoroughly before trying to play the game. 
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PROGRAM STRUCTURE LINES 


INITIALIZE 0—2 

ALTER MEMORY LIMIT 5 

TEST IF 'Z' OR С" KEY PRESSED 100 

MOVE LEFT/RIGHT 105 — 115 

FIRE SHELL/SOUND/MOVE 200 

SHELL HIT ANYTHING? 210 

MOVE INVADERS 300 

COLLISION WITH BARRIERS 315 — 325 

MOVE BOMBS FROM ALIENS 500 

CALL TO MACHINE CODE ROUTINE TO 1100 
MANIPULATE INVADERS 

INVADERS' SOUND 1110 — 1115 

END OF GAME? 1118 

PRINT SCORE 1125 

VARIABLES 

V = START ADDRESS OF VIDEO CHIP 

SC = SCORE 


X, Y = COORDINATES OF BLASTER 

K — CONTAINS KEY PRESSED ON KEYBOARD 

P — CONTAINS THE CHARACTER ON THE SCREEN THAT THE 
SHELL HAS MADE CONTACT WITH (32 = SPACE) 

SX = X COORDINATE OF SHELL 

SY = Y COORDINATE OF SHELL 

| = TEMPORARY VARIABLE 

S(J) — ARRAY CONTAINING POSITIONS (6) OF ALIENS 
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INVADERS 


О V = 53248 + POKE 54276,0 + POKE 54290,0 : 
POKE 54278,240 = POKE 54292,240 + 
POKE 54276,129 
1 POKE 54290,17 + POKE V + 33,0 + POKE V + 32,0 + 
SC = 1024 * CL = 55296 * CO = 54272 + 
POKE 54296,15 
5 POKE 56,28 5 POKE 55,0 + FOR I = 12544 TO 12551 
+ POKE 1,0 $ NEXT 
10 GOSUB 8000 : GOSUB 8060 + GOTO 1000 
99 IF К = 1 THEN 99 
100 IF K < > 12 AND K < > 20 THEN 150 
105 POKE SC + Y ¥ 40 + X,32 = X = X - C K = 12 ) $ 
UX > Q ን + (K= 2Q ) ¥ ( X < 39 ) = 
IF PEEK ( SC + Y ¥ 40 + X ) < > 32 THEN D = 1 
110 POKE CL + Y ¥ 40 + X,3 + POKE SC + Y ¥ 40 + X,O 
115 RETURN 
150 IF К = 36 AND SX < O THEN SX = X * SY = Y - 1 + 
POKE 54273,72 + POKE 54272,169 
155 RETURN 
200 POKE SC + SY % 40 + SX, 32 SY = SY - 1 
IF SY < 1 THEN SX = — 1 < RETURN 
205 Р = PEEK ( SC + SY ¥ 40 + SX ) 
210 POKE CL + SY ቁ 40 + SX,7 * POKE SC + SY 8 40 
+ SX,2 + IF Р = 32 THEN RETURN 
215 POKE 54272, 54 : POKE 54272,75 + POKE SC + SY t 
40 + SX,4 
220 IF P < > 1 THEN 250 
225 FOR Y1 = 8 TO O STEP — 2 5 
FOR X1 = 10 TO O STEP - 2 =: 
P = IN + Y1 * 6 + X1 
230 IF PEEK ( P) < > SY OR PEEK (Р + 1 ) < > SX 
THEN 245 
235 S = S + ( 12 ፦ Y1 ) ¥ 5 
POKE P + 1,255 + X1 = 
245 NEXT + NEXT + GOTO 275 
250 IF Р < > 3 THEN 275 
255 FOR J = 0 TO 5 3 IFS ( J ) = SC + SY $ 40 + SX 
THEN S = S + 5 5 5 (J) = O 5 J = 


q 
4» 


Ос ሃ1 = Q 


5 
260 NEXT 
275 POKE SC + SY ቁ 40 + SX,32 * SX = ፦ 1 * RETURN 
300 POKE 5 (1) ,32 +5 (ህ ) = 5 (J) + 40 2 
IF 5 ( J ) > 1983 THEN 5 ( J ) = Q = RETURN 


305 P = PEEK S (J) ) ፥ POKE S (J) + CO,3 + 
POKE S ( J ) ,3 

310 IF P = 32 THEN RETURN 

315 POKE S ( J ) ,4 + POKE 54273,43 + POKE 54272,52 


* IF P = 0 THEN D = 1 
320 IF 5 ( J ) = SC + SX + SY * 40 THEN 5፪ = - 1 
525 POKE 5 ( J) ,32 * 5 CJ ) = O = RETURN 
500 Si = INT (C RND ( i ) # 6) * IFS ( 81 ) > በ 


THEN RETURN 
505 FOR Y1 = 8 TO O STEP — 2 5 IF PEEK 

(IN + ҮЛ 8 6 + 81 ¥ 2 + 1 ) = 255 THEN 550 
510 S ( 51 ) = SC + ( PEEK 
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40 


CIN + Y1 ቁ 6 + 51 £ 2 1 + 
x 2 Y1 = O 


(IN + Y1 $ 6 + 81 
NEXT = RETURN 
D = 0 ፥ FOR I = 1 TO SP =: K = PEEK (PE ) + 
IF K < > 64 THEN GOSUB 99 
IF SX > = O THEN GOSUB 200 
FOR J = 0 TO 5 ፥ IF 8 ( J ) > O THEN GOSUB 300 
NEXT < POKE 54275,0 : POKE 54272,0 + 
POKE 54287,0 + POKE 54286,0 
IF RND ( 1 > > „5 THEN GOSUB 500 
NEXT : SYS 7168 : IF NO < 21 THEN SF = 3 + 
IF NO < 11 THEN SP = 2 * IF NO < 6 THEN SP = 1 
POKE 54287,2 + POKE 54286,57 * IF 
PEEK ( 12505 ) = 36 THEN POKE 12303,129 + 
GOTO 1104 
POKE 12303, 36 
IF PEEK ( 7604 ) = O AND D = O AND NO > O 
THEN 1000 
IF NO = O THEN GOSUB 8050 + GOTO 1000 
POKE SC + Y * 40 + X,4 ፥ POKE 54273,61 + 
POKE 54272,126 
FOR I = 15 TO O STEP - .1 * POKE 54296,1 + NEXT 
5 POKE 54287,0 + POKE 54286,0 + 
POKE SC + Y x 40 + X,0 
POKE 54273,0 + POKE 54272,0 
IF PEEK ( 7604 ) = © THEN B = B + 1 + 
IF B < 4 THEN POKE 54296,15 : GOTO 1000 
POKE V + 24,20 + PRINT " EJ [e] [е] (el (e [el (el Ce] [e] 
[e] [е] (ей [е] [е] [е] (e [е] [е] በ ባበ (el (е) [al [e] [e] За 
Я ረ x A A A A A A A a а KRGAME . OVER ER" 
PRINT " [MYOU , SCORED"S + RUN 
FOR AD = 7168 TO 7393 
READ A ፥ POKE AD,A + NEXT 
FOR AD = 12288 TO 12351 + READ A = POKE AD,A + 
NEXT 
POKE V + 24,28 
FOR Y1 = O TO 4 * FOR X1 = О TO 5 + 
POKE 7620 + Y1 8 12 + X1 8 2,Y1 * 2 + 1 + 
POKE 7621 + Y1 $ 12 + X1 8 2,X1 $ 
NEXT + NEXT 


) + 1 ) 
+ 1 ) + 


a 


POKE 7605,1 + POKE 7604,0 = SX = — | = SY =O < 
NO = 30 + SP = 4 < RETURN 
В = 1 PRINT "EZ" = FOR I = 1984 TO 2023 


POKE 1,5 + POKE I + CO,6 = NEXT * X = 1 2 Y = 23 
: PE = 197 5 S = O 

IN = 7620 + DIM S (5) 2 POKE CL + Уж 40 + X,3 
+ POKE SC + Y ¥ 40 + X,0 

FOR VI = 1 TO 4 $ PRINT “ ES E [el ሀባ (e) ሀባ [e] 
(e) (e) (e) (e) [e] [የባ (а [ሀባ (e) ሀባ [ሀባ ወባ ዘባ" SPCC VI $ 10 — 7) 
"EEE (e) ዘዘ ዘዘ ШВЕЕЕ ©) ዘዘ ዘዘ BREEE "5 

PRINT " መ ዘዘ ዘዘ ዘዘ . ር" 

NEXT + RETURN 

DATA 162,7,142,179,29,162,0,142,180,29 
,189,197,29,201,255,240,56,141,177,29 

DATA 189,196,29,141,176,29,169,32,141 
,178,29,32,162,28,189,197,29,24, 109 


200 


9055 


DATA 181,29,157,197,29,201,0,208,5,160,1 
,140,180,29,201,39,208,5,160,1,140 

DATA 180,29,141,177,29,169,1,141,178,29 
,32,162,28,232,232,224,60,208, 187 

DATA 173,180,29,208,1,96,169,0,141,180,2 
,169,32,141,178,29,162,0,189 

DATA 197,29,201,255,240,27,141,177,29,189 
,196,29,141,176,29,32,162,28,254 

DATA 196,29,189,196,29,201,22,208,5,160 
,1,140,180,29,232,232,224,60, 208 

DATA 216,173,181,29,201,1,240,4 
,169,1,208,2,169,255 

DATA 141,181, 29, 173, 180, 29, 208, 3, 74, 0, 28, 96 

DATA 138, 72, 152, 72, 172,176, 29, 169, 0, 155, 51 
3169, 4,133, 32, 162,0, 24,169 

DATA 40, 109, 31,0, 133, 31, 169, 0, 109, 32,9, 
133,32, 232, 236, 176, 29 

DATA 208, 235, 172,177, 29,173, 178, 29, 145, 51 
524, 169, 212, 109, 52, 0. 155 

DATA 32,173, 179, 29, 145, 51, 104, 168, 104 
, 170, 96,0, 16, 16,56, 124 

DATA 124, 254, 254, 126, 90, 255, 189, 189, 36 
, 66, 36,0,0,0, 16, 16, 16, 56,84, 0,84, 56 

DATA 16,56,56, 16,0, 108, 213 
, 128, 132,39, 174, 197,78 


9060 DATA 255, 255, 255, 255, 255, 255, 255, 255,255 


‚ 254, 252, 248, 240, 224, 192,128 


9065 DATA 255,127,638, 51, 18, 7, 5, 1 


CHEXSUM 
A=4B822 245=334 182m=1260 
1=4888 250=382 1188-4497 
5=2723 255=4336 1191=3928 
18-1447 =ፎ8=131 1102=585 
29-739 275=2348 1184-2388 
i88=1773 300=2553 11805-1723 
195-7265 3A5=2389 1118-2645 
118-2596 3180-82n 1115-4781 
1185143 315-2302 1117-1167 
1580-2937 220-2512 1118=3651 
155=143 325=1345 1190-3974 
240-4001 508-2283 1125-1348 
=6= 1738 505-3919 2886= 1099 
210=3902 5164-5670 2005=268 
215=2848 S554=332 SØ1B=2246 
228=374 1900 =2268 2815=ፎ7= 
225=33904 12905-21215 8058-6147 
езй-2757 1118-1844 2Ø52=32Ø 
235=3854 1815-2562 2055=3437 
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SØEA=1833 
2865-2103 
Ssera=2756 
8Ø75=4923 
30/7=378 


3845=3118 
3000-4236 
3A55=2513 


TOTAL= 218938 
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APPENDIX A 


The purpose of this appendix is to provide you with information beyond 
just the program listings and stuctures. 


The information presented here is an extract from our own programmers' 
notes. 


Before we publish any games our programmers gothrough the programs 
in detail and in doing so come up with hints, tips and general information 
which would be useful to the programmer. 


Be sure to progressively SAVE the programs onto cassette as you enter 
the listings. From time to time, the keyboard may 'lock up”, expecially if 
you try to RUN a program that contains an error. We strongly recommend 
that you keep SAVEing copies of the program as you enter it into the 
computer and ‘debug’ any typing errors. 


We also appreciate that some people like to 'customise' some of the 
games by enhancing them or changing them in some way. Anticipating 
this we have also suggested some changes you might like to make. 


You will note that some of the programs contain machine code language 
subroutines. These are required to achieve effects that would be too slow 
in BASIC. 


Don't worry if you are not familiar with machine language — the 
programs include all the instructions to initialize the machine language 
subroutine and to implement it. You must be especially careful with the 
DATA statments in these programs. Be sure to SAVE a copy of the 
program onto cassette before trying to RUN a program that contains 
machine language subroutines. 


In Appendix D, we show the subroutines that make up the machine 
language subroutine in the program “U.F.O.”. This subroutine scrolls the 
landscape at the bottom of the screen. 


If there are any novices among you we have given a very detailed 
breakdown of “Start Pilot” under “Program Structure”. You will be able to 
follow the program step-by-step and understand all it does. 

A sprite generator with which to create sprites for your own games has 
been added. Use this to create good games to send to us for publishing 
together with the card in the back. 


The true arcade games addict has been catered for with instructions on 
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how to convert the programs so that they are joystick compatable (in 
Appendix B). 


All in all we feel that, whatever your purpose in purchasing this book, we 
have provided you with enough material to make your purchase more 
than worthwhile. 


GENERAL HINTS 


If you encounter difficulty trying to SAVE a program while in colour mode, 
hit RUN/STOP and RESTORE. 


To get a completely black background and border : POKE 53280, 0 
(border) 

POKE 53281, 0 (background) 

and СТНІ 8 for white characters 


If you crash the program during graphics mode and you can't read the 
line number in which you crashed, then type: 
POKE 53272, 21 : POKE 53265, 155 


If you type in a line that is exactly 2 screen lines long and can't get it 
accepted, use the cursor keys to move the cursor back into the line (at 
least one cursor left movement) and then save the line. If it still doesn't 
save, you have probably added redundant spaces or an extra character. 


Some games use the space bar and others the 'M' key for firing. If you 
prefer one or the other you can alter as follows: 

PEEK 197 checks last key pressed (returns an ASCII value) 

When testing the value of last key pressed : 'እሳ = 36 and “space bar’ = 60 


If you find that some games, that you know are correct, just don't work 
properly, try resetting and loading. We have found that previous games 
can sometimes corrupt pointers. 


HINTS FOR SPECIFIC GAMES 


PARANOID 
This game takes about 30 seconds to initialize so don't assume you've 
made an error somewhere, just wait. 


TURKEY 

To speed up movement of the turkey change line 60 to read: 
Y1=Y1+2*YD:X1=X1+2*XD 

To speed up the waiter change lines 26 and 32 to P =P — 3and P = P + 
3 respectively. 
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HIGHER OR LOWER 
Use the card selector and drawing routines as a basis for other card 
games. 


FLIGHT SIMULATOR 

To increase the rate of fuel consumption, and so force a faster landing 
and a time limit, decrease the 3200 in line 110. (A value of about 1500 
seems to work well.) 


SLALOM 

To make the game more difficult, and thus more challenging, change line 
30 to: 30 IF RND(1) < 1 etc. 

This decreases the distance between flags and increases the number of 
trees. You could write a routine to incorporate different skill levels. 


COWBOY SHOOTOUT 
To change background and border colours change the vlaues POKEd 
into (V + 33) and *V + 32) in line 15. 


DARK STAR 

We encountered some problems loading Dark Star from cassette, 
presumably because of its length, if it happens just persevere. You might 
also like to change the sound on your shots to something more gutsy. 


MARTIAN INVASION 

Those of you who are observant will notice that at times a tripod will blow 
up before your bullet hits him — this is caused by a collision with the high 
X — bit. 


UFO 
To increase the speed of the game you can speed up the moving objects 
by making the following changes. 


Line 35: To increase craft speed increase the value 2 in 
Y =Y —2 and also the 2 at the very end of the line 


Line 60: To increase UFO speed increase the value subtracted 
from А in A=A-2 


Line 180: To increase bullet speed increase the value added 
to Ain A=A+3 


The UFO will not crash into the sea but should you desire it to do so just 
remove line 90. 
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APPENDIX B 


TO CONVERT KEYBOARD GAMES TO JOYSTICK GAMES 


— plug joystick into control port 1. 


Where in the game you see PEEK (197) or a variable has been assigned 
to the value 197 (e.g. KB or PE in some cases) and you see PEEK 
(variable) then change the 197 to 56321. Using the above you would 
have PEEK (56321) or KB = 56321 or K = PEEK (56321). 


The next step is to replace key tests with joystick value tests. Using the 
table below change the key tests as shown. 


IF PE = “Fire key value” IFPE AND 16 =0 
IFPE = “Up key value” IFPEAND 1=0 
IF PE = “Down key value" IFPEAND 2=0 
IF PE = “Left key value” IFPEAND 4=0 
IF PE = “Right key value” IFPEAND 8=0 


If you don't know the code values for keys and therefore don't know 
which key a value represents then run this little routine: 
10 PRINT PEEK (197) ;: GOTO 10 


RUN it and press the keys used in a game. The values for the keys will 
appear on the screen. Just relate these values according to the function 
of the key they represent to the joystick test values in the table. 

e.g. North Sea Copter 

40 PE = PEEK (56321) 


45 IF PE AND 8 ANDF >0 THEN X = X+ 2:F=F-.1 
etc. 
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APPENDIX C 


SPRITE GENERATOR Copyright (c) 1983 Beam Software 


This program provides a fast and simple means for creating your own 
sprites. 


The program provides a 24 x 21 grid on the screen on which to draw your 
sprites, the relevant key to be pressed being listed on the screen. 


The real size sprite is shown on the screen, as well as the expanded 
(double resolution) sprite. 


Keys used are: 

A = MOVE CURSOR LEFT 

D = MOVE CURSOR RIGHT 

W = MOVE CURSOR UP 

X = MOVE CURSOR DOWN 

S = PLOT POINT ON GRID 

SPACE BAR = ERASE POINT ON GRID 

SHIFT CLR = CLEAR ENTIRE GRID 

RETURN = CLEAR SCREEN AND PRINT OUT DATA 


When return is pressed the sprite data is printed out, this may then be 
used in your own programs as follows: 


10 V = 53248 : REM START OF DISPLAY CHIP 
20 POKE V + 21, 1: REM ENABLE SPRITE O 
30 POKE 2040, 13: REM SPRITE DATA POINTER 
40 POKE V + 39, 4 : REM COLOUR OF SPRITE 
50 FOR | = 0 TO 62 : READ A: POKE 832 + |, A: NEXT ። REM 
SPRITE DATA STORED HERE (13 * 64) 
60 FOR X = ОТО 200 REM MOVE SPRITE (EXAMPLE) 
70 POKE V, X REM UPDATE X COORDINATE 
80 POKE V + 1, X REM UPDATE Y COORDINATE 
90 NEXT X 
100 GOTO 60 
200 REM DATA STATEMENTS WOULD FOLLOW 


This program sets up the sprite and moves it accross the screen. 
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SPRITE GENERATOR Copyright (c) 1983 Beam Software 


1 SC = 1024 
2 POKE 649,0 
10 PRINT " 2" 


11 FOR I = 010 7 በ (7 ፦ I > = 2 г I * NEXT 
12 FOR I = О ТО 7 + A (I ) = 255 - በ ( I ) 5 NEXT 
15 POKE 55281,6 + POKE 53280,6 


20 GOSUB 2000 
60 FOR I = 55296 TO 56319 + 
100 POKE 209,25 : POKE 210,4 
110 PRINT "MISPACE . a a a MERASE" 
120 POKE 209,65 $ PRINT "#5. a å å å a a a MPLOT" 
130 POKE 209,105 $ PRINT " # А a ኢፌ å å a a +< ЕРТ" 
140 POKE 209,145 + PRINT 
ġġ MD +. sk үч Pu +. + dh de ai RIGHT" 
150 POKE 209,185 + PRINT "MW ፌ ፌ å à à a a a ZUP" 
160 POKE 209,225 s PRINT "MX... a a x a DOWN" 
170 POKE 209,9 + POKE 210,5 + PRINT 
" НЕТ, CLR a zn CLEAR" 
180 POKE 209,49 + PRINT " SIRETURN a a a прата" 
200 50 = 832 + POKE 2040,15 + POKE 53287,8 
201 POKE 2041,13 + POKE 55288,4 + POKE 55250,11 + 
POKE 53251,190 
205 GOSUB 3000 
210 POKE 53248,24 
220 POKE 53249,135 
225 POKE 53264,3 
230 POKE 53269,3 
240 POKE 55271,2 + POKE 55277,2 
300 Cx = O 5 CY = O 
500 FOR I = ዐ TOS 
= 1 ТО 20 + NEXT 
O THEN POKE SC + CX + ርሃ 8 ዱዐ, 
PEEK ( SC + CX + CY * 40 ) OR 128 
3 THEN POKE SC + CX + CY * ло, 
PEEK ( SC + CX + CY % ዳዕ ) AND 127 


POKE 1,0 = NEXT 


t ፋኑ 


540 IF K — 10 THEN 5000 
550 IF K = 18 THEN 5100 
5ሬ0 IF K = 13 THEN 5200 
570 IF К = 9 THEN 5500 
580 IF K = 23 THEN 5400 
990 IF K = 60 THEN 5500 
600 IF K = 51 THEN 5600 
610 IF K = 1 THEN 7000 
700 NEXT I 


800 GOTO 500 

1000 GOTO 1000 

2000 FOR I = O TO 20 

2010 FOR J = O TO 23 

2020 POKE БС + I Y 40 + J,43 

2030 NEXT J 2 NEXT I 

2040 RETURN 

3000 FOR I = 0 TO 62 + POKE 80 + 1,0 = NEXT = RETURN 
5000 IF CX = O THEN 700 
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5010 POKE SC + CX + CY £ ло, 
PEEK ( SC + CX + CY * 40 ) AND 127 
5020 CX = CX - 1 : GOTO 700 
5100 IF CX = 23 THEN 700 
5110 POKE SC + CX + CY 8 40, 
PEEK ( SC + CX + ርሃ ቁ 40 ) AND 127 
5120 CX = CX + 1 + GOTO 700 
5200 POKE SC + CX + ርሃ 8 40,81 
5210 TP = SO + CY ¥ 3 + INT (CX /8) 
5220 POKE TP, PEEK ( ТР > OR 
D (CX — 8 8 INT (CX / 8 ) ) 
5230 GOTO 700 
5300 IF CY = O THEN 700 
5310 POKE SC + CX + CY 8 40, 
PEEK ( SC + CX + ርሃ 8 40 ) AND 127 
5320 ርሃ = ርሃ - 1 + GOTO 700 
5400 IF CY = 20 THEN 700 
5410 POKE SC + CX + ርሃ * 40, 
PEEK ( SC + CX + CY 8 40 ) AND 127 
5420 CY = CY + 1 + GOTO 700 
5500 POKE SC + CX + ርሃ * 40,43 
5510 TP = SO + 3 ¥ CY + INT ( CX / 8) + 
POKE TP, PEEK ( TP ) AND 
A (CX — вж INT (CX / в») 
5520 GOTO 700 
5600 GOSUB 2000 
5610 GOSUB 3000 * GOTO 700 
7000 PRINT "Ez" 
7010 FOR I = 0 TO 62 + PRINT PEEK ( SO +I); 
7020 IF I < > 62 THEN PRINT ","; 
7030 NEXT 1 
7040 END 
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CHEXSUM 1020-579 
1=544 26868=78= 
2=42M 7010-708 

10-372 2020-1252 
11=193! 2838=475 
12==ይ6! 2848=143 
15=1183 2308AM=1858 
PA=Q47 SAAR=367 
5A=1783 5A1M=32 17 
I AA=968 5A2A=1249 
118-1542 5100-934 
12021848 511823217 
130-2008 5120-1348 
145-203! -con00-1446 
158-1833 5210-1935 
15606-28018 52AA=2517 
i79=2766 522A=529 
158022148 E2AA=267 
208-1718 531023217 
201-2539 5320-1350 
295-348 54AA=933 
21M=592 5418=38217 
22A=653 5490-1343 
225=526 55800-1446 
230=535 55180-45482 
e40-1178 5520-529 
300-868 5pne-347 
San=855 551Ø=969 
SAS=1AA7 7050-378 
2510-3828 70810-16590 
5290-3824 7020-1198 
52A=7Ø4 7030-206 
240-892 7048-128 
55A=9A1 
5560=896 TOTAL- 98267 
570-844 
582-5933 
590-8988 
£an=898 
6 1ፎ=52ፎ 
700-286 
222=529 
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APPENDIX D 


ASSEMBL Y LANGUAGE ROUTINE FROM U.F.O. 


FINE SCROLLS SCREEN BY USING FINE SCROLL X 
REGISTER. 
BY 8 THE ENTIRE BOTTOM LINE 15 COARSE SCROLLED. 


3800 
3805 
3804 


3806 
3808 
380B 
380C 
380E 
3811 
3813 
5816 
3819 
381A 
381C 
381E 


3820 
3823 


LDX 
DEX 
CPX 


BEG 
STX 
RTS 
LDX 
STX 
LDX 
LDA 
STA 
INX 
CPX 
BNE 
LDA 


STA 
RTS 


WHEN THIS REGISTER HAS BEEN DECREMENTED 


$DO1I6 ¡READ SCROLL REGISTER 
3 DECREMENT THE VALUE 
#191 s IF DECREMENTED BY B 
( 1 CHARACTER ) 
$380C ¡THEN GOTO COARSE SCROLL SCREEN 
$DO16 


š RETURN 
4199 
$DO16 ¡RESET SCROLL REGISTER 
80 ; SCROLL BOTTOM LINE OF SCREEN 
$7C1,X 
$7CO, X 
440 
$3813 | 
852 STORE NEW CHARACTER AT RIGHT 


EDGE OF LINE 
$7E7 


s RETURN 
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COMMODORE 64 GAMES BOOK 


REGISTRATION CARD 


Please fill out this page and return it promptly in order that we may keep 
you informed of new software and special offers that arise. Simply cut 
along the dotted line and return it to the correct address selected from 
those overleaf. 


Where did you learn of this product? 

| | Magazine. If so, which one? ................................... 
[_] Through a friend. 

f Saw it in a Retail Store 
| JOther. Please specify ........................................ 
Which Magazines do you purchase? 

HEGE ሸም በምም лысын бада ықы E ክክ. 


Sr СО Алы nba e ውያ ነ ው R na 


What age are you? 

| | 10-15 [ | 16-19 [| ] 20-24 [ | Over 25 
We are continually writing new material and would appreciate receiving 
your comments on our product. 


How would you rate this book? 


Excellent [ ] Value for money 
Good [_] Priced right 
[ ] Poor [ JOverpriced 


Please tell us what software you would like to see produced for your 
COMMODORE 64 


Name 
Address 


€ Code 


PUT THIS IN A STAMPED ENVELOPE AND SENDTO: 
In the United States of America return page to: 
Melbourne House Software Inc., 347 Reedwood Drive, 
Nashville TN 37217. 


In the United Kingdom return page to: 

Melbourne House (Publishers) Ltd., Melbourne House, Church Yard, 
Tring, Hertfordshire, HP23 5LU 

In Australia & New Zealand return page to: 

Melbourne House (Australia) Pty. Ltd., Suite 4, 75 Palmerston Crescent, 
South Melbourne, Victoria, 3205. 
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Melbourne House P 


The best software games book ever 
written for your Commodore 64. 


` These easy to enter program listings turn 


your Commodore 64 micro into an entire 
arcade of electronic fun and thrills. 
Experience action so fast and furious it 


. will shatter all your concepts about 


computer game excitement. 


Written by Clifford Ramshaw, author of 
the renowned VIC Innovative Computing 
and Mark Ramshaw of Zap Pow Boom VIC 
Arcade fame! These two programming 
wizards once again show how to get the 


. ultimate game performance from your 


micro. 


"An offering that definitely lives up to its 
title. The programs cover a range of 
games with a selection of shoot-em-up 
space wars, board games and a flight 
simulator.” Personal Computer News. ` 


Every game program makes maximum 
use of the Commodore 64's sophisticated 
features, including its innovative Sprite 
capability and excellent sound. 


"For a Commodore 64 games enthusiast 
this book is a must." Personal Computer 
News. 

The Commodore 64 Games Book includes 
the unique CHEXSUM verification pro- 
gram that allows you to see at a glance if 
you have typed any program in this book 
correctly! 
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